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INTRODUCTION 



Welcome to Oregon Software's Pascal-1! 

This user manual contains all the information you should need to 
install and operate Oregon Software's Pascal-1 system on DEC'S 
RT-11 V2, V3 and V4 operating systems. 

The first part of this manual that you will need is the 
Installation Suide, which is in the back. < We put it there 
because you will want it only for reference after you nave 
installed .your Pascal-1. ) The other sections come in the order in 
which you are most likely to, need them. 

The first section is the User's Suide, which is a beginner's walk 
in the countryside of Pascal-1. The User's Suide has two parts. 
The first is a quick jump into simple programs. The idea is to 
immerse you immediately in our product, to give you a feel for it. 
The second part covers some of the same ideas, but expands on 
concepts and details. You can cover this section at a brisk pace. 
Experienced programmers will probably dash through it. 

But lest you get too confident in your stroll through the User's 
Suide, there are brambles aplenty for unwary souls in the 
following sections: the Programmer's Suide, the Language 
Specification, and the Debugger Suide. Experienced programmers 
should have no trouble, and beginners can make their way 
carefully, but we encourage the latter toward additional reading. 
(See the iist of books that follows.) Each section has a brief 
introduction explaining its function. 
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For More Information 



We can suggest several places to find more information about 
Pascal : 



(1) Try it! Certainly" the most challenging course, and the 
most open-ended and accurate as well. Acquire the habit of 
answering your questions by experiment. Remember, "You can't 
hurt the computer!" 

<2) Programming in Pa sca l , by Grogono — a good ' course in 
Standard Pascal, with lots of sample programs for ti>, above. 

¥ 

<3> Pascal User Manual and Resort by Kathleen Jensen and 
Niklaus Wirth — the first definition of Standard Pascal. 

(4) This manual — for fine points and grubby details of our 
Pascal, it's the only place in town. 

For the serious student, these books are available from Oregon 
Software or elsewhere: 

Systematic Programming! An Introduction* Niklaus Wirth? 
Prentice-Hall, *17.75 

Al gorithms + Data Structures = Programs, Niklaus Mirth? 
Prentice^Hall, *20.25 

Structured Programming, Dahl, Dijkstra, Hoare? 
Academic Press, S15.30 

Elements of Programming Style, Kernighan an*i Plattger? 
McSraw-Hill, $3.95 

And. we recommend that you join the Pascal Users' Group, which 
publishes an excellent newsletter. Send *10 for a one-year 
subscription to: 

Pascal Users* Broup 
Attn: Rick Shaw 
P.O. Box 888524 
Atlanta, Beorgia 3G338 
(404) 252-2600 
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Oregon Software traces its origins to OMSI — the Oregon Museum of 
Science and Industry. OMSI is a private educational organization 
chartered "to further the education of the youth of the 
community", and it was in the Research Laboratory at OMSI that we 
began writing software. Seven of us came from OMSI to found 
Oregon Software in September, 1977. Because of the close 
association, the name "OMSI" stayed with us for a while, and we 
continue to contribute some of our corporate resources to the 
Museum. 

But please, we're Oregon Software. We're a research and 
development software corporation in Portland, with a nice view of 
Mount Hood and of what's left of Mount St. Helens. The seven from 
OMSI have grown into twenty-five from all over. 

On a serious note: OMSI is a non-profit, charitable institution. 
Contributions of money and equipment are much needed and are 
tax-deductible. Please earmark your donations for the Research 
Lab, which supports independent science projects in many "eiFJ* 
including computing. For further information about the OMSI 
Research Lab program, contact: 

Director of Research 
OMSI 

4015 SW Canyon Road 
Portland, Oregon 97201 
(503) 248-5943 



What i s Pascal r;2?_ 



Now that you know more about us, you may want to know more about 
our newest product-in-progress, Pascal -2. Pascal -2 is our new 
optimizing compiler, written in Pascal. It's designed to be 
portable, and it's already been moved to a Honeywell computer. 
The Pascal -2 compiler is bigger and slower than Pascal-1, buV not 
the generated code. Typical programs are 40% smaller and almost 
twice as fast. You can expect Pascal-2 compilers to be available 
on a wide range of 16-bit and 32-bit processors in the "ext 
several years. Supported users of Pascal-1 will receive 
substantial discounts on their purchase of Pascal-2 licenses for 
the PDP-11. 
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And Finally 



This manual is the third edition of our RT-11 manual and contains 
a number of changes and additions, including: 

1) Correction of errors and omissions in documentation; 

2) More details, especially about installation procedures? 

3) A general Table of Contents and a Table of Contents far- 
each section; 

4) A standard format for all sections and sequential 
numbering for the entire manual; 

5) Inclusion of all sample programs in the machine-readable 
version of the manual; 

6) Correction of spelling mistakes and other irritating 
little errors. 

Most of the changes are in the nature of "tidying up% but we 
believe that it is a good deal easier' to read and find things in 
this version of our manual than in our earlier efforts. 

Oregon Software plans to continually upgrade its written 
materials. In the future, 'we expect to include more details and 
more sample programs and examples in the RT-ii manual. If you 
have any suggestions, or if you have any -problems with this 
manual, please tell us about them <in writing). 
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Introduction^ to „. the. .User's Guide 

This is the introductory section, the User's Guide. It explains: 

1) how to compile and run your Pascal programs; 

2) how to interpret program listings and error messages; 

3) some details of the compilation process. 

This guide assumes that you are familiar with: 
1) simple RT-11 commands; 

2> a text editor (EDIT, TECO, EDT, SOS> ; 
3) elementary Pascal programming. 

This guide is not: 

1) an introduction to Pascal (see Programming in, Pascal by 

Grogono) ; 

2) a detailed description of Pascal-1 (see the Language 

Specification); 

3) an expert's guide to Pascal-1 (see the Programmer's Guide). 

In examples, underlining is used to show the text that you should 
type. Non-under lined text shows prompts or other responses by the 
computer. 
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Enter inq., the Program . 



So you want to run a Pascal' program? 

The first step is to enter the program into the computer and store 
it in the file system. Use a familiar text editor to enter your 
program, and store the program in a file with the extension .PAS. 
The Pascal system accepts free-format program files, so use 
blanks, tabs, new lines, and form feeds as desired to help make 

your program readable. 

; i 

This Pascal version of your program is called the source program, 
or; the! source file. All other versions of your program are 
translations from the source program. 

Source programs should be stored in files with the extension *PAS 
for Pascal (example: FIRST.PAS). The .PAS extension may be 
omitted from commands to the Pascal system, but must be included 
in commands to other RT-li systems such as the editor. 



Comp.il ing_the_Prggram_. 



After editing, you must compile your program — "translate it into 
a form that can be directly executed by the computer. The Pascal 
compilation process is directed by the PCL (Pascal Command 
Language} program. Its simplest form is: 

-R PQL 

*< source file name> 

To illustrate the compilation process, let's assume that this 
program 

program First (output); 
begin 

write ('"Things are best in their beginnings >; 

writeln (' — Blaise Pascal*); 
end. 

is stored in the file FIRST.PAS. 
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In the Beginning ... 

The compilation process begins with your command and is followed 
by the computer's response: 

■ B ESL 

♦FIRST 

.RU SY: PASCAL 
' *TEMP. TMP , TT: =FIRST/N 

Errors detected: 
Free memory: 11660 words 

.R MACRO 

*TEMP. TMP=TEMP. TMP 

ERRORS DETECTED: 

* A C 

.R LINK 

*FIRST=TEMP- TMP, SY: PASCAL 

* A C 

.RU FIRST 

"Things are best in their beginnings" — Blaise Pascal 

■ 

Notice that the PCL command line compiles the source program and 
then immediately runs (executes) the compiled program. This is 
known as "compile and go" operation- Compiled programs are stored 
in files with the .SAV extension <FIRST.SAV>. After being 
compiled^ the ,5AV program can be executed again" with the *R* or 
'RUN* commands. 

Notice also that no errors were detected. This is certainly 
unusual if this is your first program! What happens if there are 
detectable errors in the source program? The next example shows 
the result of such an error. 
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Correcting the Program _. _„„_ 



The following program contains a deliberate error: 

program Second (output) 
begin 

writeln ('Things get worse as they continue'); 
end. 

This program is missing a semicolon between the program heading 
and the keyword 'begin'. , Semicolon errors are the most common 
errors made by beginning Pascal programmers. Semicolon errors are 
always detected by the compiler: 



*SECOND 

.RU SY: PASCAL 
*TEMP.TMP„TT:=SECOND/N 
2 BESIN 

****** Expected 'SEMICOLON' missing 

Errors detected: 1 

Free memory: 11679 words 

.R MACRO 

*TEMP. TMP=TEMP. TMP 



For each error, a line of the source program is printed* then an 
arrow indicating the approximate position of the error, and a 
message describing the error- Many compilation errors are 
possible. See Appendix A of the Programmer's Guide for a complete 
list. 
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The^Prggram , L istinq_ j (/L) '_ 

Often, we need to see, more of the program to locate and correct 
the error. The Pascal compiler can be directed to display the 
entire program, with all detected errors and other information. 
This is the "listing* of the program. To get a program listing at 
your ; terminal, add the /L switch to the PCL command line: 

' I.RJPCL : 
!*< source file name>/L 

To print a listing to the line printer or another destination, 
give a comma followed by the destination file name, an equal sign, 
and the source file: 

.R PCL 

* , <listing file name>' = <source file name) 

Note: listing files are created with the .L-ST extension. A 
listing of a sample program follows: 

THIRD QMSI Pascal VI. 2S RT11 26-Dec-SO 08:29 Site #1-1 Page i 
Oregon Software Portland, Oregon 97201 (503) 226-7760 

Line Stmt Level Nest Source Program 

1 program Third (output) 

2 begin 

****** Expected 'SEMICOLON* missing 

3 1 11 wr'iteln ('Things get hazy if you stare'); 
42 1 1 end. 

Errors detected: 1 

Free memory: 11677 words 



The listing is printed in pages, with a heading on each page 
showing the program name, the exact version of the Pascal system, 
the date and time, and the licensed site identification (the 
facility name and site number). 

Four columns of numbers appear on the left side of each page. The 
first column, labeled "Line", simply numbers each line of the 
source program. The second column is labeled "Stmt" and gives the 
statement number of the first statement on that line. The 
statement number starts at 1 for each control section, and 
increases by one as each statement is compiled. An up-to-date 
listing can be useful during debugging, because the statement 
numbers are used by the Debugger to identify breakpoints. 
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Listinq m fpr - .a i Complex Program 



io illustrate the "Level" and "Nest" columns, a more complex 
program is needed: 

FINAL OMSI Pascal VI. 26 RT11 26-Dec-SO 09:30 Site #1-1 Page 1 
Oregon Software Portland, Oregon 97201 (503) 226-7760 

Line Stmt Level Nest Source program 

1 ; program Final (output); 

2 , 

3 const Reality = true* 
4 

5 procedure Objective; 



6 begin 

7 1 2 1 if Reality then 

8 2 2 2 write ('Things become more complex *) 

9 3 2 2 else write ('In the Beginning, «..*>; 
10 4 2 1 end; 

11 

12 procedure Awareness; 

13 var'Eye: (Subject, Object); 

14 begin 

15 1 2 1 for Eye : = Subject to" Subject do 

16 2 . 2 2 writelnCas one understands them* > 5 

17 3 2 1 end; 
IS 

19 begin 

20 1 1 i Objective; 

21 2 1 1 Awareness; 

22 3 1 1 end. 



Errors detected: 

Free memory: 11554 words 

The "Level" column shows the depth of procedure nesting. The main 
program is at level 1, its procedures are level 2, and so on; a 
procedure at level 4 is enclosed by two surrounding procedures or 
functions. The "Nest" column shows a similar nesting of 
statements within other structured statements. 



More on PCL 



The .PCL command line can include up to six source files combined 
in sequence to form the complete program. The compilation also 
can be modified by "switches 1 ' in the PCL command line. A switch 
is a slash followed by a letter (such as /L, which prints the 
listing). The most commonly used switches are shown in the 
fallowing examples. The Programmer's Suide has a complete list. 
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To further demonstrate the use of the PCL, let's compile and list 
the program E. This program calculates an approximation of E <tbe 
base of the natural logarithms) fay summing the series 

l+i/l!+l/2!+l/3!+ ... +1/N! 

until additional terms do not affect the approximation. 

-B £QL 
*E/L 



•ru sy: pascal 
*temp.tmp,tt:=e 

EX Or® I Pascal VI. 26 RTti 26-Dec-SO 12:58 Site #1-1 
Oregon Software Portland, Oregon 97201 <503) 226-7760 

Line Stmt Level Nest Source Statement 



Page 1 



1 








program EX; 


2 








va'r E, Delta, Fact: reals 


3 








IM: integer; 


4 








begin 


5 


1 


1 


1 


E:= l.o; Fact:= l.o; Del 


6 


4 


1 


1 


N:= l; 


7 


5 


1 


1 


repeat 


8 


6 


1 


2 


E:= E + Delta; 


9 


7 


1 


2 


N:= N + l; Fact:= Fact 


10 


9 


1 


2 


Delta:= 1 / Fact; 


11 


10 


1 


2 


until E = CE + Delta) S 


12 


11 


1 


1 


writeCWith *, N:l, * te 


13 


12 


1 


1 


writelnCthe value of E 


14 


13 


1 


1 


end. 



l.o; 



* Nl 



is' 



'>; 
e:is: 



15) 



Errors detected: 

Free memory: 11636 words 

Errors detected: 

Free memory: 11636 words 

.R MACRO 

*TEMP. TMP=TEMP. TMP 

ERRORS DETECTED: . , 

* A C 

.R LINK 

*E=TEMP. TMP, SY: PASCAL 

* A C 

.RU E 

With 11 terms, the value of E is 2.71S280Q00000000 
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The__ Debugger (/D/S) 



We can watch the progress of the computation and can display 
intermediate values without making any program changes. For this, 
we use the /D/S switch pair to compile with the interactive 
Debugger- After compiling, we set a stored breakpoint command to' 
display the current value of E. 



.R PCL 
*E/D/S 

.RU SY: PASCAL 
*TEMP. TMP, E, E=E/D/S 

Errors detected: 
Free memory: 11372 



words 



„R MACRO 

*TEMP. TMP=TEMP. TMP 

ERRORS DETECTED: 

* A C 



„R LINK 

*E=TEMP. TMP, SY: PASCAL/C/T 

*SY:A/Q:l/C 

*sy:b/o:i/c 

*sy:o/o:2/c 

*sy:i/o:2/c 

*sy:2/o:2/c 

*sy:3/o:2/c 

*sy:4/o:2/c 

*sy:5/o:2/c 

*sy:6/o:2/c 

*sy:7/o:2/c 

*sy:s/o:2/c 

*sy:9/o:2 

Transfer symbol? SSTART 

*~C 
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,R E 



At this point, the Debugger will prompt you for the name of your 
program, and you can set the breakpoints. In this example, we set 
the breakpoint at MAIN, 6 because this is the point at which the 
value of E changes in this particular program (see the listing on 
Page 10). We also tell the program to write the value of E at 
that point and then continue. (See the Debugger Guide for details 
of these commands. ) 



POD (Pascal Online Debugger) — 24-Api — 79 

POD - Program name? E 

> IIMAIN.,6). <WIIliQ> 

J B 

Breakpoint at MAIN, 6 E 

i . OOOOOO 

Breakpoint at MAIN, 6 E 

2. OOOOOO 

Breakpoint at MAIN, 6 E 

2.500000 

Breakpoint at MAIN, 6 E 

2.666667 

Breakpoint at MAIN, 6 E 

2.703333 

Breakpoint at MAIN, 6 E 

2. 716667 

Breakpoint at MAIN,6 E 

2.718056 

Breakpoint at MAIN, 6 E 

2.718254 

Breakpoint at MAIN,6 E 

2. 718279 

Breakpoint at MAIN, 6 E 

2.718282 

With 11 terms, the value of E is 2. 718280000000000 

Program terminated at MAIN, -12 end. 



= E + Delta; 
= E + Delta; 

- E + Delta; 

- E + Delta; 
= E + Delta; 
= E' + Delta; 
= E + Delta; 
= E + Delta; 
= E + Delta; 
= E + Delta; 
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Compilation Switches (Extended Precision) 

Extended Precision </X) ,_ 



The computed value is printed with 6 significant digits. For more 
precision, we can use the /X switch, which means "extended 
precisian". With extended precision, 15 significant digits are 
computed and displayed. See the Programmer's Guide. 



•B PCL 

-RU SY: PASCAL 
*TEMP. TflP , TT : =E/ X /N 

Errors detected: 

Free memory: 11636 words 



.R MACRO 

*TE«P. T«P=TEMP. TMP 

ERRORS DETECTED: 

* A C 

-R LINK 

*E=TEMP. SY: PASCAL 

* A C 

.RU E 

With 19 terms, the value of E is 2.71S2S182S4590SO 
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The Profiler </P/S) 



Finally, let's "profile" the program by using the /P/S 
combination. The profile listing shows exactly the number of 
times each line is executed, allowing us to concentrate on the 
parts of the program that might be optimized effectively. 



-B FCL 

.RU SY: PASCAL 
*TEMP. TMP, E, E=E/D/S 

Errors detected: 

Free memory: 11372 words .. 



.R MACRO 

TEMP. TMP=TEMP. TMP 

ERRORS DETECTED: 

* A C 

.R LINK 

*E=TEMP. TMP, SY: PASCAL, SY: PROFIL 

* A C 

.RU E 

Program name? E 

Output profile to: Til 

With 11 terms, the value of E is 2. 718280000000000 

EX OMSI Pascal VI. 26 RT11 26-Dec-SO 12:59 Site #1-1 
Oregon Software Portland, Oregon 97201 <503> 226-7760 

Line Stmt Level Nest Source Statement 
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1 

1 

1 

10 

10 

10 

10 

1 

1 

1 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 



1 

4 

5 

6 

7 

9 

10 

11 

12 

13 



program EX| 

var E, Delta, Fact 
N: integer; 

begin 
1 E:= 1.03 Fact:= l.O; 
1 n:= is 

1 repeat 

2 E:= E + 
2 N:= N + 
2 Delta:= 
2 until E = 
1 writer With *, 
1. writelnCE is*, 
1 end. 



real* 



Delta:= 1.0; 



Delta; 

l; Fact:= Fact * NS 

1 / Fact; 

(E + Delta); 

N:i, * terms, 
E:lS:l5>; 



Errors detected: 

Free memory: 11636 words 
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Your Next Step 



You r N ext .Step 



Thus ends your guided tour through Pascal -1. At this point, you 
should be able to run a -few simple programs. Before getting into 
complex programs, however, you should consult the Programmer's 
Guide!, the Language Specification, and the Debugger Guide. 



SECTION 2: PROGRAMMER'S GUIDE. 
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Introduction 

Introduct i on _to _the .Programmer ' s Gui de 

— i * — —- - 

The Programmer's Guide describes the way in which the Pascal -I 
Vi.2 system interacts with the PDP-11 and the way in which some of 
the advanced features of Pascal -1 operate. 

This guide assumes that you are experienced in programming with 

Pascal." ' 

This guide is not: 

1> an introduction to Pascal (see Programming in Pa scal by 
Brogono) j 

2) a beginner's guide to Pascal -1 (see the User Guide); 

3) a detailed description- of Pascal-1 (see the Language 

Specification); 

In examples, underlining is used to show the text that you should 
type. Non-underlined text, shows the prompts or other responses by 
the computer. 
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£9S?fiiIaiion_Switches 



The compilation process and the resulting program can be modified 
by switches appearing in the POL command line. Switches are a 
single alphabetic character after the ' /' (slash) marker, as in 
the command line MAIN/D/S. 



The complete set of compilation switches appears below, 
by a detailed description of each switch. 



followed 



/c 


Compile only 


/D 


Debug 


/E j 


External 


/F 


Fast reals 


/I 


Improver 


/L 


Listing 


/l_:n 


Listing 


/M 


Macro 


/N 


Noli st 


/O 


Object 


/P 


Profile 


/Q 


Quick 


/S 


Source 


/X 


extend 



Complete compilation but no execution 

Debugger compilation 

External module — implies /O 

Generate calls rather than traps 

Branch/ jump resolution 

Produce compilation listing 

Specify listing page length 

Partial compilation to assembler .MAC 

List errors only 

Partial compilation to linker .OBJ • 

Prof i 1 er compi 1 at i on 

Uses "fast MAC.SAV assembler 

Include source lines (modifies /D/P/M) 

Extended precision Reals (15 digits) 



Listing Control Switches (/L. /L: n. /N) 

The /L switch directs the compiler to produce a listing. The /L:n 
switch indicates that the listing is to be in pages of N lines 
each. The /N switch directs the compiler to list only lines in 
error;. The /L and /N switches are related to the fL+ and *L- 
embedded switches. 



Partial Cgmp.il at ion Switches jC/Cj. /M A /Q> 

These switches interrupt the compilation process when intermediate 
results are desired. 

The /M switch performs only the first compilation step, resulting 
in an assembly source translation of the Pascal program. 

The assembler source file has the extension -MAC. The /S switch 
is recommended with /M and will include the Pascal source lines as 
comments*. 

The /O switch performs the compilation and assembly steps, 
producing a relocatable object file suitable for input to the 
Linker or Librarian. The /0 switch is implied by the /E 
(External) switch. 
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Compilation Switches 

The /C switch performs the entire compilation process, but does 
not execute the resulting .program. The program may then be run 
with the R or RUN commands. 

Real Arithmetic Swi tches I/X x £EL 

The /X switch causes the compiler to use extended precison for 
values of type Real. All Real values are extended. It is not 
possible to mix normal and extended precision values. The /X 
switch jis related to the.. *X embedded switch. See the section on 

Extended Precision. 

I . . . 

The /F switch is of limited utility. On processors lacking both 
FPP and 1 ; FIS ! floating-point hardware, Real operations are normally 
performed by a trap of each FIS instruction and simulation of its 
effects. The trapping process requires some overhead, but is 
compact. The /F switch causes the compiler to generate subroutine 
calls rather than simulating FIS instructions. The subroutine 
calls are faster but require an extra word for each floating-point 
instruction. 

Debugger Switch Jt/D). 

The /D switch indicates a Debugger compilation. This switch 
causes generation of a symbol table file and, if /S is also 
present, a listing file. The /D switch also causes generation of 
code to identify each procedure and statement to the interactive 
debugger. The /D switch is related to the *D+ and *D- embedded 
switches. See the section on the Debugger. 

Profiler Switch </P? 

The /P switch causes the inclusion of code for performance 
measurement, and generates a symbol table file and, if /S is also 
specified, a listing file. The Profiler uses the Debugger 
interface code, so that VP cannot appear with /D. The /P swrtch 
is related to the *D+ and *D- embedded switches. See the section 
on the Profiler. 

Source Made Switch </§) 

The /S switch performs two distinct functions. When used with the 
Debugger </D/S> or Profiler </P/S>, /S enables the source program 
mode of operation and connects the actions of the Profiler and 
Debugger to the source text of the program. 
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Compilation Switches 

When used with the Macro switch </M/S), the generated assembly 
language translation will include the Pascal source lines embedded 
as comments within the assembly file. This use of the /S switch; 

is related to the *S+ and *S~ embedded switches. 



External Modul e Switch i£EL 

The /E switch indicates an external module compilation. This 
causes the outermost procedures and functions to be identified to! 
the Linker with global entry names. An external module can' 
include global declarations, procedures, and functions' but is not 
required to include a main control section. The /E switch is: 
related; to the *E embedded switch. See the External Module 
section. The /E switch should not be used to compile the main 
program; that calls external procedures. 

Branch /Jump IgiD.rgver Switch (/I) 

The /I switch inserts an additional step into the compilation 
process, a branch/jump resolver <IMP). IMP replaces branch/jump 
combinations with a single conditional branch where passible. The 
Improver runs slowly, but typically reduces program size by 6 to 8 
percent. IMP is recommended only for compilation of fully 
debugged production programs. 

Fast As semb l er Switch </S). 

The /Q switch causes the compilation process to use the MAC.5AV 
assembler instead of the MACRO assembler. MAC.SAV is a 
single-pass assembler that has no macro or local symbol 
capabilities, but it assembles compiler output in about one third 
of the time required by the RT-li MACRO assembler. 
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Embedded Switches 



Embedded, Swi t ches 

Embedded switches provide control o-f compilation options within 
the Pascal source program. Embedded switches have the form of a 
Pascal comment beginning with a dollar sign f*>, followed by a 
single uppercase alphabetic character and possibly a plus or minus 
sign, as in <**!_+*) « Several of the embedded switch functions can 
also be provided by compilation switches. Embedded switches have 
the advantage that, once included in a program, they cannot be 
accidentally omitted from a compilation. 

The complete list of embedded switches below is fallowed by a more 
detailed description of each switch function. In general, a plus 
sign enables a particular function, and a minus sign disables it. 
Switches that are initially enabled are marked with £+3; switches 
marked EMBF3 ('must be first*) must appear before any Pascal code. 

*A— ,$A+ Array bounds Include array bounds check £+3 

$C Code insert See' the Embedded Assembly Code section 

*D-,*0+ Debugger Include debugger interface 

$E-,$E+ External External module compilation 

*F-,*F+ Fast FIS Enable floating— point calls 

*L-,SL+ Listing Source lines in listing £+3 

*S-,*S+ Source mode Source lines in assembly 

sT-,*T+ sTack check Include stack overflow check £+3 

*X extend Extended precision reals Ef"IK r '3 

Erro r-Ch ecking Switches (sA« $T> 

The *A switch controls the generation of code to check each array 
referjehde and ensure that the index is within the bounds of the 
array. Bounds checking is, initially enabled; the *A- switch will 
disable checking. If enabled, each bounds check adds 8 words to 
the size of the program. 



The *T switch controls stack overflow checking, and is initially 
enabled. Stack overflow is possible upon entry to any procedure 
or function block. This check can be disabled with *T-, with a 
small savings of memory <2 words per procedure). 

Debugger/Profiler Switch <$P) 

The *D switch controls the interface code to the Debugger and 
Profiler. If enabled, each statement and procedure includes 
instructions to call the Debugger or Profiler. These instructions 
require i to 3 words per statement CI word for statements 1-255 of 
each procedure, 2 words otherwise, and an additional word if /S 
source mode is enabled). In large programs, one may choose to 
disable debug interface code generation for sections known to be 
correct. 
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Embedded Snitches 



External Module Swit ch 1*E>. 

Enabling the *E switch causes global procedures and functions to 
be labeled as external entry points in the relocatable object 
file. A main program section is ignored if it is encountered when 
the *E switch is enabled. .See the External Module section. 

Real i Arithmetic Mode Switches <*X. $Fi 

The *X switch enables extended precision <15-digit> real 
arithmetic. If present J the *X switch oust precede any Pascal 
cade: You cannot mix normal and extended precision in one 
program^ so that each module in separate compilations must be 
compiled with the same precisian. See the Extended Precision 
section. 

The *F switch is useful only on processors lacking FIS and FPP 
hardware for floating point calculations. On these processors, 
floating-point instructions are normally trapped and simulated. 
The *F switch instead causes direct subroutine calls to 
floating— point routines, saving about 0.2 milliseconds per 
floating-point instruction at the cost of an extra word. 

Listing Control Switch jC*Ll 

The *L switch controls the appearance of lines in the program 
listing file. If enabled, all program text will appear in the 
listing. If the *L switch is disabled, only lines in error and 
error messages will appear. 

Source Mode Switch <$S) 

Enabling the *S switch causes the Pascal source lines to appear as 
comments in the compiler assembly output. This makes it easier to 
determine the code generated for each statement. This switch also 
modifies the behavior of the Debugger and Profiler. 
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I/O Control Switches 



IZQ_£SQtrgljBwitches__ 



The Reset O and Rewrite <) standard procedures accept additional 
arguments specifying a Filename of an external file, and a 
DefaultName with default fields of the filename- These arguments 
can also include I/O control switches, which give explicit control 
of the operating system interface details. 

The I/O switches appear in the Filename or DefaultName parameters 
as in this example: 

Rewrite CF, * data. dat /seek/span/size: 12. ' > ; 

A special device (TI:> also may appear in the Reset <) and 

Rewrite <) calls. The Tl: device connects to the Pascal -i 

terminal driver and is used in place of the TT: driver for 
interactive use. 

A complete list of I/O switches appears below, followed by 
individual details. All switches may be abbreviated to the first 
two letters. 

/buffersize:n Allocate N bytes for buffer 

/go Allow programmed error handling 

/odt Single character terminal input 

/nfs Non-File— Structured access 

/seek Direct-access file 

/size:n File storage allocation 

/span Records span block boundaries 

/temp Temporary file 



/BUFFERS! 2E:n Switch 

Pascal-1 normally allocates the minimum space required for a file 
buffer, which is usually 512 bytes but is dependent on device and 
file characteristics. More efficient I/O transfers can be 
performed at the cost of additional memory. The /Buffersizesn 
switch specifies the storage to be allocated to a file buffer. 
The size value is a decimal number if terminated with a period, 
otherwise octal. 



/SO Sw itch 

I/O transfer errors are normally fatal and cause immediate program 
termination. The /So switch indicates that transfer errors on the 
specified file are Hon— fatal and allow program execution to 
continue. In using this switch, the programmer accepts 
responsibility for checking the RT-11 I/O status code after each 
I/O operation. The error code for the previous I/O transfer error 
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I/O Control Switches 



is available in the byte at address 52B. 



/OPT Switch 



The /0d4 switch derives its name from the ODT Debugger (Octal 
Debugging Technique), which is driven by single character- 
commands. The /ODT switch is used with keyboard "files, and 
indicates that each character read from the file is to be,, 
processed immediately without any wait for a «=*«;"??* ^"^J^ 
other action character. The /ODT switch also disables_the normal 
one character buffer effect of the ReadO standard procedure. 

The rubout and ctrl/U keyboard editing capabilities are not 
effective on terminals open with /ODT. 

/NFS Switch 

The /NFS switch is used when you desire non-file-structured access 
to a device that is normally file-structured, such asa disk 
device. Because direct access to such a device can destroy its 
directory structure, Pascal-1 prevents non-file-structured access 
unless the /NFS switch is used. 

/SEEK Swi tch 

The /Seek switch performs two functions: it enables the use of 
the direct-access Seek O procedure, and it permits both read and 
write access to the file variable so that records may be updated. 

/SI2E:_n S wi tch 

The /Size switch used in the RewriteO P^^*/?*?**** 5 ^^ 
space to be allocated for the file. The size of * ne J^J* ** 9 b ^ 
in blocks of 512 bytes, and is a decimal number if terminated by a 
period, and octal otherwise. 



/SPAN Switch 

in files created or accessed by Pascal-1 programs, f ^"^th 
records are normally 'blocked'. Thi * ««fns *7;*5.i ^ith 
number of records are stored in one disk block of 512 °Y*es, with 
any remaining storage in that block being unused. The /Span 
switch packs records more efficiently, with "card* ^f™*? 9 J™ 
one disk block to the next. This requires additional buffer- 
memory, which is automatically allocated, and some ^ditional 
computation. Spanned and blocked files are " ot ^ generally 
compatible. Files created, with /Span should be read with the same 
switch. 
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I/O Control Switches 



/ TEMP Switch 

This switch is used in RewriteO to indicate a temporary -file that 
will: be deleted on termination. No filename is needed if this 
switch appears. 

i ! ■ ■ i . ! , , 

The,, Pr of i ler ; 

The Profiler identifies the sections of a program that can be most 
effectively I optimized. Empirical measurements show that typical 
progipams consume a large fraction of their computation time in a 
small portion of the program code ("90% of the time in 10% of the 
code?) . i The Profiler counts the actual number of times each 
statement is executed and each procedure is activated, and 
displays this information either in the program listing or in a 
tabular form. 



The /P switch appears in the compilation command to invoke the 
Profiler. The /S switch is recommended in addition for more 
convenient display of the profile information. 

When the Profiler begins executing, it will ask " for the" program 
name. The Profiler uses the symbol table and listing files 
produced by the compiler to identify procedures and statements in 
the program. The symbol table file normally has the same name as 
the program and the extension .SYM, and the listing file normally 
has the extension .LST. The Profiler will ask for the correct 
filenames if the normal files are not available. 

The Profiler will then ask for the desired destination of the 
profile information. The profile will be written to the specified 
file with the default extension .PRO. This should be a permanent 
file (disk or hard copy device), as the Profiler requires roughly 
a factor of fifty performance overhead while gathering 
information. 

The program being measured will then execute normally, although 
somewhat more slowly. Upon normal termination, or any fatal 
error, or ctrl/C interrupt, the profile information will be 
written to the specified file. 

The first section of the profile is the Procedure Reference 
Profile, which lists each referenced procedure and function with 
the count of calls on that procedure. The second section , is , the 
Statement Reference Profile, displayed in tabular format. If the 
/S (source)- switch is specified, this section displays the program 
listing with an additional column containing the reference count 
for each line. 
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The Profiler is limited in several respects: only the first lOO 
statements in each procedure will be counted, and a maximum of 40 
procedures and functions can be profiled. The $D- and *D+ 
embedded switches can be 'used to selectively enable and disable 
profiling. 



Example: 

PRIMES QMSI Pascal VI. 2G RT11 26-Dec-SO 8:14 Site #1-1 
Oregon Software Portland, Oregon 97201 (503) 226-7760 

Line Stmt Level Nest Source Statement 
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; 


1 








2 








3 








4 








5 








6 








7 








8 








9 






l 


io 


1 : 


t 1 


l 


11 


5 j 


I 1 


l 


12 


6 : 


1 v 1 . 


2499 


13 


8 1 


t 3 


11153 


14 


9 3 


L 4 


11153 


15 


10 1 


I 4 


35 


16 


12 3 


I ..6 


35 


17 


13 3 


t 6 


35 


18 


14 3 


I 6 


35 


19 


15 3 


L 6 


11153 


20 


16 3 


L 4 


11153 


21 


18 3 


I 4 


94012 


22 


20 3 


I " 6 


2S669 


23 


21 3 


L 7 


94012 


24 


22 3 


I 6 


94012 


25 


24 3 


L 6 


11153 


26 


25 3 


I 4 


2499 


27 


26 3 


L ' 3 


2499 


28 


28 3 


L 3 


1 


29 


29 3 


I 1 



program Primes; <* Author: N. Wirth *) 
const l*=2500; <* first 2500 Primes *> 
type Index=l..N; 
var X, Square: integer; 
I, K, Lira: Index; 
Prime: Boolean; 
P: array £ Index 3 of integer; 
V: array£l..lQ03 of integer; 
begin 

PE13:=2; X:=l; Lim:=l; Square: =4; 
write (2); 

for I: =2 to N do begin 
repeat 
X:=X+2; 

if Square<=X then begin 
VELi ml : ^Square; 
Lim:=Lim+l; 

Square: =PCLim3*PCLim3 ; 
end; 
K:=2; Primes =true; 
while Prime and <K<Lim) do begin 
if V£K3<X 

then VEK3:=V£K3+PEK3; 
Pr i me: = (XOVEK3); K:=K+1; 
end; 
until Prime; 
PEI3:=X; write(X>; 
end; 
end. 
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Format and Cross-Reference, Improver 

Format and Cross-ftef erence (PASFMT) ,_.__.__ 



The PASFMT utility supplied with Pascal -i will automatically 
reformat a Pascal source program, adjusting indention and 
partitioning statements so that a program listing reflects the 
program structure. The PASFMT program can also provide a 
cross— reference index of a Pascal source program showing block 
calls, nesting, and identifier references. 

The PASFMT command line can "contain one or two output files, an 
input source file, and several optional switches. Run PASFMT as 
follows: 

-R PASFMT 

PASFMT V2.0 UODec79) 

*<Format >, < Crossref >=<Source>/swi tches 

The Format output file is the formatted source program. Several 
switches select token translation options: 

/L Lowercase Lowercase identifiers, uppercase keywords 
/M Mixedcase Unchanged identifiers, uppercase keywords 
/U Uppercase All letters uppercase 

The Crossref output file (if specified) normally contains the 
program listing with line and page numbers, followed by the 
procedure call and nesting index. Two switch options apply to the 
cross reference: 

/C Crossref all Cross reference all identifiers 
/N No listing Produce only crossref index 

■ 

The /C switch may be used only for source programs of moderate 
size, because of memory limitations. 

The , Improver .„ (IMP) 

The utility program IMP decreases the size of the object code 
produced by Pascal-1 by replacing branch/jump combinations with 
single branches when possible. IMP will reduce the generated code 
by roughly 5 to 8 percent. 

IMP is included in the compilation process by the /I compilation 
switch, as in the command line TEST/ I. 

Note that IMP runs quite slowly and therefore is recommended for 
use only on completely debugged production programs. 
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Dynamic String Package 

Dynamic „String_,Package _ ,. 



A package of procedures and functions for dynamic string 
processing is supplied with Pascal-1 VI. 2, and is stored in the 
file| STRING. PAS. Tne package is written in Standard Pascal, and 
al!laij*s programs using strings to be moved to other Pascal 
implementations. 

1 I ' ;■ i ■ ; 

Strings! are stored as a record structure with a fixed max i mum 

number of characters (normally 100 but easily changed), and an! 

integer marking the current length of the string. 

type String = record 
Len: Integer; 

Ch: packed arrays 1. .StringMax 3 of Char; 
end; 

The. capabilities provided are: 

Len(S) — returns the current length of string S; 

CI ear (S) — initializes string S to empty; 

ReadString(F,S) — reads a value for string S from the text file 
F. The string is terminated by Eoln<F) and a Readln<F) is 
performed. String overflow (a string longer than StringMax) 

results in truncation. 

, .... i 

WriteString<F»S) — writes the string S to the text file F. The 
same effect can be achieved by passing the parameter S.Ch:S.Len 
to Write O, as in Write(F, *S=* ,S.Ch:S.Len) . 

Concatenate <T,S) — appends string S to the target string T. The 
resulting value is string T. Overflow results in truncation to 
StringMax characters. 

Search <T,S, Start) — sear chs string T for the first occurrence of 
string S to the right of position Start (characters are numbered 
beginning with one). The function Search <) returns the position 
of the first character in the matching substring, or the value 

zero if the string S does not appear. 

Insert CT,S, Start) — inserts the string S into the target string T 
at position Start. Characters are shifted to the right as 
necessary. Overflow produces a truncated target string. A 
Start position that would produce a non-contiguous string has no 
effect. 
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The Start and Span parameters in the Substring and Delete 
procedures- define a substring beginning at position Start (between 
characters Start-1 and Start) with a length of Abs(Span). If Span 
is positive, the substring is to the right of Start; if negative, 
the substring is to the left. 

Delete (S, Start, Span) — deletes the substring defined by Start, 
Span from the string S. 



A, 



Substring(T,S,Start,Span) — the substring of string S defined by 
Starts Span is assigned to the target string T. 

i " i i 

An example of the use of the string package is given below. The 
example reads a line from the terminal and separates it into 
single words. The compilation command to PCL should be 
"STRINS, EXAMPLE. 

type Lit = packed array CI.. 103 of char; 

procedure Literal (var T:> String; Ch: Lit; N: integer); 

var is integer; 

begin - • - 

Clear <T>; 

for r := 1 to N do T.ChCI3 := ChCI3; 

T.Len := N; 
end; 

var Space, Line, Word: String; 

Mark: integer; 
begin 

Literal (Space,* ',1); C make 1 char string J 

writeCType a line: *); 
ReadString (Input, Line); 
Concatenate (Line, Space); 
Mark := Search (Line, Space, 1); 
; while Hark > O do begin 

Substring (Word, Line, 1, Mark - 1); 
if Len(Word) > O then begin 
Wr i t eStr i ng ( Output , Word ) ; 
writeln; 
end; 
Delete (Line, i, Mark); 
Mark := Search (Line, 'Space, 1); 
end; 
end. 
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External Modules ' , 

External modules allow several program sections, each containing 
at least one procedure, function, or main program, to be compiled! 
independently and combined at link time. External modules may be 
combined into module libraries to simplify -handling of common 
routines. The external module interface also allows inclusion of 
modules written in other languages, such as FORTRAN and MACRO. 

The EXTERNAL directive is used to reference a procedure orj 
function in an external module. The declaration of an external 
procedure or function contains the procedure or function name and 
parameters, fallowed by the directive EXTERNAL (similar to 
FORWARD). The procedure or function body does rtot appear in the 
program unit referencing the external routine. 

The FORTRAN directive replaces EXTERNAL to reference external 
routines written in FORTRAN or MACRO. The FORTRAN directive 
causes the generation of a PDP-11 standard calling sequence (the 
Pascal calling sequence places parameters on the stack, while the 
FORTRAN sequence points R5 to a list of parameters). 

The /E compilation switch and the *E embedded switch are used to 
create modules that can be referenced by EXTERNAL directives. 
When the $E switch is enabled, each global procedure and function 
declaration causes an external (global) symbol to be defined. 
These global symbols are matched at link time to the global 
references created by the EXTERNAL directive. 

The external reference symbols are composed of the first six 
characters of the external procedure or function identifier, and 
must uniquely identify the external routine. Duplication or 
overlap of external symbols results in the Link error 'Multiple 
definition*, while a missing module results in the 'Undefined 
global' error message. 

Several cautions should be observed when you use EXTERNAL and 
FORTRAN directives. Parameters to external modules cannot be 
checked by the compiler for type conformance, so an accidental 
type mismatch may cause entirely unpredictable results. The 
FORTRAN directive causes only generation of the proper calling 
sequence; the directive does not link or initialize the FORTRAN 
I/O system. 

External modules may reference global (static) variables, which 
are shared by all of the modules composing a program. If all 
modules (including the main program) are compiled with the same 
global variables, the effect is as if all modules were compiled 
together. The compiler cannot verify type conformance of global 
data. 

When combining modules to form libraries, remember that all 
procedures ■ and functions from a compilation form a single module, 
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and cannot be individually selected from the library. The module 
name is taken from the- first six characters of the program 
identifier (in the program heading). 



The_Li.nker. Li braria n, and Overlays 



Object modules produced by the Pascal compiler using the /O or /E 
compilation switches are compatible with object modules produced 
by the MACRO assembler, FORTRAN compiler, and other RT-il system 
utility programs. The Linker (LINK) can be- used to produce 
overlaid executable programs, allowing much larger programs. • The 
Librarian CLIBR) is used to build libraries of object modules for 
more convenient handling. 'Some highlights of Linker and Librarian 
capabilities are covered here. See the RT— 11 System User's Guide 
for complete details. 

To run the Linker, give the command 

•8 LINK 
* 

(.*** indicates that the Linker is waiting for a command). The 
first command line can include the output file, a map file if 
desired, and up to six input files. The file PASCAL. OBJ, which 
Contains the Pascal run-time library, must appear in every Pascal 
link procedure. The /C switch (continue) allows commands to be 
continued onto the next line. 

*QUT.MAP=MAIN„SUB1,,LIB1/C 
*EQSCAL 

The overlay facilities of the Linker are selected" with the ZO:N 
switch, where the parameter N indicates the overlay region number. 
Sets of modules that are allocated to the same region will be 
overlaid against other modules in the same region, with only one 
set of modules per region actually in memory at any one time. 

The following sequence links a main program, an external module, 
and the Debugger into an overlaid executable file. The main 
program, external module, and the Pascal library are not overlaid. 
Debugger modules A and B do not call each other, and are overlaid 
in region 1. Debugger modules 0-9 do not call each other, and can 
be overlaid in region 2. 

When using overlays in V4 of RT-li, you must use the /T switch to 
explicitly set the transfer address to the symbol *ST ART. The /T 
will avoid a bug in the V4 linker. 
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■R LINK 

*prq6=main, sub1 . fascal/c/t 

*p:a/q:i/c 

*p:B/o:i/c 

*P:b/0:2/C 

*P:i/o:2/c 

*p:2/o:2/c 

*p:3/o:2/c 

*p:^/0:2/C 

*p:5/o:2/c 

*p:6/o:2/c 

*P:7/o:2/c 

*p:s/o:2/c 

*p:9/o:2 

Transfer symbol? *START 

The Librarian combines relocatable object modules to farm object 
libraries. . These libraries may be included as input to the 
Linker, which will select only those modules needed by the program 
being linked. Note that a module always consists of the entire 
set of procedures and functions from its compilation. Individual 
procedures cannot be selected from a module. 

For example, the string package STRIN8.PAS can be edited to form 9 
modules, with each module containing one procedure or function. 
The 9 modules can then be compiled, and combined into a library as 
follows. 

.R LIBR 

*5TRINS=LEN. CLEAR. READS. WRITES. CQNC/C 

♦SEARCH. INSERT. DELETE. SUBS 

* A C 



Embedded As sembly Code ___ 

PDP-11 assembly code can be embedded within an Pascal -1 program at 
any point where a comment might appear. Embedded assembly code 
takes the form of a special comment beginning with the embedded 
switch $C ? as in the comment 

CSC MOV %0,-<%6> J 

The assembly code section extends to the closing comment brace 
(this closing brace must not be in an assembler comment). Any of 
the capabilities of the MACRO assembler may be used. 

The Pascal-i compiler scans the embedded assembly code and 
replaces tokens within the code that correspond to certain classes 
of Pascal identifiers. This provides simplified access to Pascal 
data and control structures. However, the programmer is required 
to have some understanding of the internal structures. See the 
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section on Run-Time Memory Organization, and examine the code 
produced by the compiler. Constant identifers appearing in 
assembly code are replaced by their defined values. Variable 
identifiers are replaced by the numeric offset from the 
appropriate base pointer. For global variables, the base pointer- 
is Register 5 (R5) 5 for local variables, the stack pointer CSP) 
is the base. For example, to swap the halves of a local integer 
variable I, the code would be 

k*C SWAB ICSP) J 

and ^o assign the constant Ten to the global variable Count one 

can write 

; I :' I: 

I ' 

k*C MOV #TEN, COUNT <R5> J 

Any temporary stack usage is not recognized by the compiler, and 
must be included in indexed addressing of local variables. 

Parameters of Pascal procedures and functions are treated as local 
variables, and are accessible in the same fashion. Internally, a 
Var parameter is the address of the actual parameter, so 
references to \fsur parameters must be indirect, as' in 

<$C MOV @VAR<SP),RO > . 

Procedure and function identifiers are replaced by the internal 
label assigned by the compiler. To assign a value to a function, 
it is best to move the value to a local variable and then use a 
Pascal assignment statement to copy the value to the function. 

The programmer is responsible for selecting the proper base 
register, as the compiler provides no error — checking capability. 
Identifier substitution is performed for all identifiers in these 
classes. This can cause problems if the programmer defines "an 
identifier corresponding to a MACRO instruction, such as a 
constant named *MOV*. 

With one exception, registers RO-R4 are available within embedded 
code sections. The exception is With statements, each of which 
maintains a fixed address in a register. "With" register 
allocation is in the order R3, R2, Rl, RO and can be determined 
from the Pascal program. Registers R5 and SP must be preserved 
across the range of an embedded code section. 

The default numeric radix of a Pascal -produced assembly code file 
is decimal, not the normal octal . 
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A PDP-11 program has an address space of 32,768 words, or 32KW, or 
64KB C1KW is 1024 words). The figure below shows this address 
space as it might be allocated for a typical program of moderate 
size. 
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This figure represents a snapshot taken during program execution, 
illustrating the partitioning of available memory. Each partition 
is described; in the following sections. 

RT— 1.1 Vector s and Communication 

The RT-11 Vector partition begins at address zero and occupies the 
first 256 words of all .programs. This area contains interrupt 
vectors and RT-11 status indicators and also is used for 
communication between the Pascal program and other programs linked 
by chaining. 

Program Code 

The Program Code partition contains all of the instructions of the 
user program, including overlays, external modules, and routines 
from the run-time library. The partition is .allocated, memory 
adjacent to the RT— 11 Vector partition. The size of this 
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partition depends entirely on the size of the user program. 

] 

G lo bal Variables 

The Global Variable partition contains all of the program's global 
variables, those defined in the outermost, or main, block of the 
program. This partition is fined in size during program; 
execution. 

Register 5 (R5) points to the base of the .Global Variable 
partition and is used for access to global variables. 

Dynamic Me mor y — T he Heap 

The Dynamic Memory partition contains I/O control blacks and 
buffers, and variables allocated by the NewO procedure. The Heap 
is unique in that it is not allocated any memory initially, but 
instead expands as necessary. The Heap is allocated adjacent to 
the Global Variable partition, and may grow on demand to the upper 
limit imposed by the Stack partition. The error message 'NewO 
exceeded memory' indicates total exhaustion of memory resources. 

Local Variables — The Stack 

The Stack partition contains all variables local to inner blocks 
of the program, and is also used for temporary calculations, 
parameter passing, and subroutine return information. At the time 
a block is entered, a stack frame is created. The stack frame 
contains all information local to that block. Stack frames are 
created and released in a purely nested fashion. See below for a 
detailed description of a stack frame. 

The current Stack frame is always pointed to by the Stack Pointer 
(SP, register R6) , which initially points to the top of the Stack 
partition. As nested Stack frames are allocated, the T Stack 
Pointer decreases in value (points to lower addresses). If the 
Stack partition is too small, the Stack Pointer will eventually 
overrun the Heap partition and cause the 'Stack exceeded memory 
error. 

Note that the Stack is located at the high limit of user memory, 
and that the USR, if swapping, will swap over the Stack. This 
will cause problems for programs that call the USR via embedded 
assembly code, or by external non-Pascal subroutines. The 
simplest solution is to use the 'SET USR NQSWAP' command to make 
the USR permanently resident. Another solution is, for each USR 
call, to save the current stack pointer <SP) , and then set the SP 
to low memory (1000) before pushing USR parameters onto the Stack. 
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RT-lt Resident Monitor 

This area is at the high limit of available physical memory, and 
contains the fixed RT-11 Resident Monitor, the User Service 
Routine (US^> if it is set NOSWAP, and any device handlers loaded 
with the LOAD command. 



IZQ Page 

The I/O Page of address space contains all device 
command registers and internal processor registers. 



status and 



6 QlgseuB of the Stack Partition — Ihg St ack Frame 

The Stack partition is entirely composed of Stack- Frames. A Stack 
Frame is created during entry to every block i excluding. the main 
pmqram block), and is released when the block is exited. The 
following "diagram illustrates the possible components of a Stack 
Frame. Most of these components are optional. Only the Return 
Link is required in every Stack Frame. 
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Function Return Value 

This -field 4 is present in Stack Frames associated with function 
blocks, and holds the value to be returned by the function. Its 
position at the bottom of the Stack Frame allows the field to be 
'popped* from the stack when control returns to the caller of this 
block; 



Parameters 

The parameters field contains either parameter values or their 
addresses, j Blocks without parameters do not have this field id 
theiif Stack Frame (sJ . 



Return. Link 

This field is the subroutine return address, where control is 
transferred on exit from this block. 



Local Variables 

This field contains ail local variables for this block. It does 
not appear for blocks without local variables. 

Static Link 

The Static Link appears ■ only in blocks which are lexically 
enclosed by other procedure or function blocks. The Static Link 
is used for references to intermediate level variables in the 
enclosing block (s). The Static Link points to the base of the 
Stack Frame of the latest invocation of the immediately enclosing 
procedure or function block, and it is the first link in the 

Static Link chain. 

1 i 

The Stack Pointer <SP) is also used for transient temporary 
storage, as in interrupts and Pascal library calls, and each For 
statement requires 3 words of temporary stack storage during its 
execution. 
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Foreground Operation 

For foreground operation, you must allocate additional, memory to 
ensure that you will have enough space for Pascal variables and 
file buffers. Each Pascal file requires about 300 words (more for 
large buffers), so you should allocate at least -600 words for the 
default input and output files- Use the /N: switch for. V3. and 
the /BUFFER; switch for V4S 

i.FRUN <file name>/N: 1024. <V3) 

; i 

.FRUN <file name>/BUFFER: 1024. (V4) 



Ext ended Precision 



Values of type Real are normally stored in the PDP-11 
single-precision format, which requires 2 words of storage per 
value and offers 7 decimal digits of precision. The /X 
compilation switch or the *X embedded switch causes all Real 
values to have extended precision. Extended precision values each 
occupy 4 words of storage, and provide 15-digit precision in all 
real calculations, including the transcendental functions. 

Extended precision applies to all Real values in a program. You 
cannot mix normal and extended precision variables. All external 
modules must be compiled with the same precision as the mam 
program, even if no Real variables are present. 

Compared to normal precision Real variables, extended precision 
variables . require twice the storage. The effect on computation 
time is dependent on the processor hardwares the FPP 
floating-point processor provides hardware support for extended 
precision with a slight performance penalty <30X>5 processors 
with the FIS floating-instruction set will experience the most 
severe relative performance penalty (20 to 1), because FIS offers 
no extended support and extended calculations are performed 
entirely in softwares processors lacking any f loating-pomt 
hardware can expect a performance penalty of about 100%. (Even 
so, the net effect on the program is still very small.) 
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Th^-System Error <) Procedure 



Whenj a fatal run-time error occurs, the system procedure Error <) 
is called with parameters describing the error and the system 
state, j The Error (> procedure is known by the global name ERROR, 
and | may be replaced by a usei — written external module of the same 
name. The external module must accept the parameters defined 
below. ; 

i ! ; 

type Class = (Fatal , I OErr or, Warning > ; 

Message = packed arrayCl. . 1003 of Char; 
procedure Error ( 

ErrorClass: Class; 

ErrorNumber: Integer; 

ErrorMsgLength: Integer; 
var ErrorMsg: Message, 
var XFile: Text; 

IOSt at us: Integer; 

UserPC: Integer; 

FilenameLength:. Integer; 
var Filename: Message; 
) 

The ErrorClass parameter indicates the type and severity of the 
error; Fatal and IOError are errors with no possible recovery, 
while Warning errors will recover automatically. The ErrorNumber 
indicates the exact cause of the error. ErrorMsgLength and 
ErrorMsg define the text of the printed error message normally 
displayed for this error. The XFile parameter identifies the file; 
variable associated with this error, if any. lOStatus is the 
value of the RSTS/E I/O status word. UserPC is the program 
counter saved at this error, which can often be used to identify 
the program segment responsible for the error. Finally, 
FilenameLength and Filename describe the external name associated 
with the file variable XFile. 

The' possible courses of action available to the Error O procedure 
are very limited, as exiting from the Error <> procedure normally 
results in termination. The program global variables are 
available and may aid in diagnosing the problem. The Error O 
procedure may provide operator interaction or recording 
capabilities beyond the normal messages to the terminal, and as a 
final resort may call on operating system facilities to 'chain' 
and restart the program or initiate another program. 
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Cornell er_Error_Messaq es _____ , ___ _____ __ 

" , * used i nstead of * ; * 
8 or 9 in octal constant 
Argument must be integer 
Argument must be ordinal type 
Argument must be real 
ARRAY index jout of range 
ARRAY index type error- 
Bad ABS argument 
Bad argument 
Bad CASE label 
Bad constant 
Bad EXIT ] 
Bad expression 
Bad field list 
Bad FILE name 
Bad FOR statement 
Bad FUNCTION name 
Bad FUNCTION result type 
Bad IN operands 
Bad index type 
Bad LABEL 

Bad ORIGIN for variable 
Bad • parameter 
Bad PROCEDURE name 
Bad PROGRAM name 
Bad READ statement 
Bad RECORD 
Bad scalar type 
Bad SET element 
Bad subrange 
Bad TYPE 

Bad TYPE specification 
Bad variable list 
Bad variant 
Bad WITM statement 
Bad WRITE statement 
Boolean expression needed 
Constant overflow 

Don't repeat FORWARD parameter list 
Duplicate CASE label 
Duplicate field name 
ELSE must be last in CASE 

Expression too complex — out of registers 
Expression too complex — out of registers (real) ■ 
Field list must be in parentheses 
File variable missing 
Format expression must be integer 
FORTRAN must be VAR parameters 
FUNCTION arg must be real or integer 
FUNCTION argument missing 
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Illegal assignment 

Illegal character 

111 egal operator 

Illegal type of operand 

Improper symbol 

Incompatible ARRAY type 

Incompatible type 

Invalid declaration, probably missing END 

Invalid symbol 

LABEL defined at wrong level 

Label must be integer 

LABEL not declared 

LABEL redefinition 

Local VAR definitions must precede PROCEDURE definitions 

Missing *)' 

Missing *l» at end of list 

Missing * . * at end of program 

Missing BEBIN 

Missing END 

Missing END in CASE 

Missing field variable 

Missing LABEL 

Missing label definition 

Missing operand 

Missing operator 

Mi ssi ng semi col on 

Missing UNTIL 

Must be simple variable 

NEW or DISPOSE arg must be painter 

Not implemented 

ODD argument must be integer 

Catput file error 

Source line too long 

Strange *C — bad SET or missing ARRAY definition 

TEXT file expected 

Too few arguments 

Too many arguments 

Too many errors in this line 

Too many errors! 

Too many levels 

Too many symbols 

Undefined FORWARD PROCEDURE or FUNCTION 

Undefined operand 

Undefined pointer base type" 

Undefined symbol 

Unresolved forward type reference 

WITH nested too deep 
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R un— Ti me Error Messages. 



Bad [filename 

Can'jt Reset (output) 

Can't Rewrite (input) 

Compiler /library mismatch — please recompile 

Di spase (nil) attempted 

Division by zero 

Duplicate Dispose () 

End of file! 

Ex p ( ) over f 1 ow 

File not open 

Floating-point format error 

8etO not allowed 

I/O transfer error 

Illegal value for integer 

Integer overflow 

LogO of zero or a negative number 

NewO exceeded memory 

NewO of zero length 

No channels available 

No file to Reset () 

Overlay error 

PutO not allowed 

Real over f 1 ow 

Reset O failure 

Rewrite O failure 

SeekO on sequential file 

SeekO out of range 

Set element out of range 

SqrtO of a negative number 

Stack exceeded memory 

Subscript out of bounds 

Trunc/round overflow 

Unexpected trap 



OMSI Pascal -1 VI. 2 Language Specification 

The Language Specification contains details of extensions and 
limitations of OMSI Pascal-i as compared to Standard Pascal. 
Standard Pascal was first defined in the Pascal User Manual and 
Resort by Kathleen Jensen and Niklaus Wirth. A further definition 
is available in the draft proposed Standard from the British 
Standards institution (BSD. The draft BSI Standard is being 
considered for acceptance as an international standard by the 
International Standards Organization (ISO) and the American 
National Standards Institute (ANSI). The original Report and the 
draft BSI Standard are in general agreement. Where the Report and 
the Standard differ, this document will give a specific reference. 

January 3, 19B0 

Copyright 19SO Oregon Software 
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1.0 Syntax Extensions 

This section describes extensions to the formal structure of 
Pascal which are of general utility. 



1.1 Program heading 

The program heading is optional in OMSI Pascal -"1 programs, and it 
may be omitted entirely- If the program heading appears, the 
program name will be printed on each page of the program listing. 
The I first six characters of the name will be used as the external 
name of the! object module. Parameters appearing in the program 
heading are ignored. 



1.2 Declaration ordering 

The ordering of global declaration sections <CQNST, TYPE, VAR, 
LABEL) is extended in OMSI Pascal-1. Declaration sections may 
appear more than once and in any order, so long as identifiers are 
defined before being used. 

One application of this is the concatenation of source modules 
with main programs which provides a primitive source library 
capability. 

Example - compiler input PLOT, MAIN: 

(* define source module PLOT *) 
• VAR ... <* global plotter variables *> 
PROCEDURE <* and plotter functions ** 
PROCEDURE ... 
C* end of plotter module *) 

<* program file MAIN *) 

VAR ... <* global variables *> 

BEBIN <* main program code *> END. 



1.3 Comment brackets 

OMSI Pascal-1 provides three forms of comment brackets: the 
Standard braces *...*, the Standard alternate for upper-case 
terminals {*...*), and the additional form /*...*/. These may be 
interchanged freely - it is not necessary for opening and closing 
comment brackets to have the same form. Comments may not be 
nested. 
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Examples: 

(* This is a valid comment */ 

< This is <* not *) a valid comment > 



1.4 ELSE clause in CASE statements 

OMSIi Pascal-1 allows an optional ELSE clause to appear in a CASE 
statement. It indicates a statement which is to be executed if 
the CASE selector expression does not match the value of any CASE 
label. If included, the ELSE clause follows all other statements 
inside the CASE statement. If no ELSE clause appears and no 
statement is selected, control passes to the statement following 
the CASE statement. 

Example: 

repeat 

Readln(Ch>; 
case Ch of 

'A*, 'a*: Append; 

'D',*d*: Deletes 

* I *,"»*= Inserts 

>N",*n*: Newfile; 

*Q*,*q': S 

else Writeln( ,, **,Ch,*" is not a legal command*); 

ends 
until (Ch = *Q») or <Ch = *q*)S 



1.5 EXIT statement 

The EXIT statement terminates the immediately enclosing iterative 
statement (WHILE, REPEAT, FDR). 

The EXIT statement is included for compatibility with " previous 
versions of OMSI Pascal-1.- Its use is not recommended in programs 
intended to be portable. 

Example (table search) : 

Found := False; 
for I :■ 1 to Tablesize do 
if Tablet I 3=Key 
then begin 

Found := True; 
exit; 
end; 
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1.6 EXTERNAL Procedures and Functions 

The keyword EXTERNAL provides access to separately compiled 
su bro utines and to program libraries and overlay facilities. 
EXTERNAL appears in the place of a procedure or function body to 
indicate that the procedure or function is compiled separately. 

i ■ . - 
The compiler will generate references to an external (global) 
symbol.! The first six characters of the procedure or function 
identifier must form a unique external symbol. References to v an 
external procedure or function are resolved at link or task build 
time. 

Note that the compiler is unable to check parameter types at an 
external interface. 

Examples: 

procedure Erase; external! 

function Rad50(A,B,C: char): Unsigned; external; 



1.7 FORTRAN Procedures and Functions 

The directive 'FORTRAN* is similiar to the EXTERNAL directive. 
The compiler will generate a calling sequence corresponding to the 
Digital PDP-11 standard calling sequence, with register 5 <R5) 
pointing to an argument list. The FORTRAN directive enables 
calling of external MACRO and FORTRAN subroutines. The FORTRAN 
calling sequence passes parameters by reference, so the 
corresponding Pascal parameters must be declared as VAR 
parameters. 

The FORTRAN directive generates the proper call sequence for 
FORTRAN subroutines. It does not provide for initialization of 
the FORTRAN runtime I/O system. 

Example: 

function Difference (var X»Y: Real): Real; fortran; 
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2.0 Low-Level Interface 

The low-level interface section describes those OMSI Pascal-1 
extensions which are useful to programmers" who need access to 
machine dependent PDP-11 characteristics. 



2.1 I Octal <Base 8) Numbers 

i . . 

Integer constants may be written in octal notation by appending 
the ; capital letter 'B' to the number. This applies only to 
compiler-time constants — runtime integer conversions via ReadO 
are performed using decimal notation. 

Example: const TabCode = 11B; (* ASCII tab character *> 



2.2 Unsigned Integers 

The predefined type Integer has the subrange <-32768 .. 32767) and 
uses the PDP-11 signed arithmetic operations- Unsigned integers 
may be specified with the subrange O. .65535. The compiler will 
generate the unsigned comparison operations of the PDP-11 and will 
not detect multiplication and division overflow of unsigned 
integers. ', 

Unsigned integer operations apply only to integer calculations. 
I/O conversions and conversions to and from Real values are always 
signed integer operations. 

Example: type Unsigned=0. .65535; 



2.3 Logical operations on Integers 

The Boolean operators AND, .OR, and NOT are extended to Integer 
operands. The operators perform the Boolean operations on all 16 
bits of their operands. This allows testing or setting of 
individual bits within a word <for instance, status bits within a 
device register). 

Example: Byte := Ord(Ch) and 377B5 



2.4 References to fixed (absolute) memory 

OMSI Pascal-i allows the keyword ORIGIN to appear in variable 
declarations, associating a variable identifier with a specific 
memory address. This provides access to fixed memory addresses, 
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such as device control registers or operating system parameter 
blocks. 

Example (read directly from the RT11 console): 

const Ready=200B; 

var KbCsr origin 177560B, KbBuff origin 177562B: Integer; 
Ch: Char; 

begin 

while (KbCsr and Ready) =0 do <* nothing *>» 

Ch : = Chr (KbBuff ); (* get character *) 

end; 



2.5 Address operator (@) 

QMSI Pascal -1 provides a unary address operator, indicated by the 
@ character. When applied to a variable of type T, it yields a 
value of type ^T (pointer to T) . The address operator can be used 
to link variables into list structures or (more commonly) to pass 
variable addresses to low-level routines. 

Example: 

var Buffer: Block; XRLoc origin 446B: "Blocks 
begin 

XRLoc := ©Buffer; (* pass address to RSTS/E *) . 
end 



2.6. Embedded assembly code 

PDP-11 MACRO assembly code may appear at any point in an QMSI 
Pascal -1 program. Assembly code sections have the form of a 
Pascal comment, beginning with the *C embedded switch. Any 
MACRO-! 1 feature may be used within embedded code. The compiler 
provides some assistance in accessing Pascal variables, though the 
programmer is expected to have some understanding of the QMSI 
Pascal-1 runtime environment. Note that the default radix within 
a Pascal -produced MACRO file is decimal, not octal. 

Example: 

procedure EmtTrap <N: Integer ) ; 
begin 
(**C 

MOV N(SP),-(SP) ; push parameter N 
EMT 53 ; call EMT handler 

.*> 
end (*EmtTrap*) ; 



OMSI Pascal -1 VI -2 Language Specification Page 8 

Section 3: I/O Support Extensions 

3.0 I/O Support Extensions 

I/O support extensions provide the OMSI Pascal-1 programmer with 
additional control of the interface to the operating system. 



3.1 Reset O/RewriteO optional parameters 

Three additional parameters may appear following the file variable 
in calls to the Reset O and Rewrite () standard procedures. These 
optional parameters allow the program to dynamically bind a file 
variable to an external .file and provide status and error 
information. 

The general form is: 

Reset ( F » Filename , Default Name , Size ) 

where the parameters have these types: 

F - any file variable. 

Filename - literal string, or (packed) array of Char 

Default Name — same as Filename 

Size — Integer variable 

Reset <F, Filename) connects the file variable F with the external 
file identified by Filename. Filename conforms to the operating 
system conventions, and may contain device, filename, extension, 
and other fields such as PPN/UIC and version number. The Filename 
parameter may also contain switches specifying access modes or 
other special characteristics. If the external file does not 
exist prior to the Reset O, a fatal error will result. Upon 
sucessful completion of a Reset O, either the file buffer F A will 
contain the first element of the file, or Eof <F) will be True. 

Reset CF,Filename,DefaultName) performs the same- function, with 
Default Name having the same format as Filename. Fields of the 
external name which are not specified in Filename are filled from 
the information in DefaultName. Common default fields are the 
extension, protection code, and mode switches. 

Reset (F, Filename, DefaultName, Size) provides a recovery capability 
on file open errors. Size must be a variable (VAR parameter). 
After a succcessful Reset (•) , Size contains the length of the file 
in blocks. If an error occurs, Size is set to negative one (-1). 



Rewrite ( F , Filename , DefaultName , Size ) 



RewriteO creates a new external file. The optional parameters 
have the same meaning as in Reset O with one addition: Size 
specifies the initial storage, in blocks, to be allocated for the 
file. 
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Reset () and Rewrite () may be applied to the standard -files Input 
and Output respectively- This will redirect the default input or 
output streams to the specified file instead of the user terminal. 
A subsequent CloseO will break the connection and reconnect the 
default file to the terminal. 

Example: 

program Copy; C* copy to printer *) 
var Name: arrayCl. .203 of Chars 

Ch: Char; Len: Integer; 
begin 

repeat <* Set a Filename and Reset <> it *) 

WriteCFile: '); 

Readln(Name); 

Reset (Input, Name, '.PAS', len) 
until Len <> -i; (* until not error code *> 
Rewrite(0utput»'LP:*)5 (* redirect output to printer *> 

while not Eof do begin (* copy Input to Output *) 
while not Eoln do begin 

Read(Ch); write(Ch); 
end; 

Readln; Writeln; 
end; 
end. 



3.2 SeekO procedure 

The predefined procedure SeekO causes direct positioning of„ a 
file! window variable to any desired component of the file. 

Seek( F , Index ) 

F may be of any file type except Text, and must be connected to an 
external file which supports direct access (typically disk or 
DECtape). Index is an unsigned integer expression which specifies 
the desired component. File components are numbered sequentially 
beginning with one <1>. If Index specifies a number greater than 
the number of components actually present, then Eof (F> is set to 
True. 

To read component N of file F, use: 

Seek<F,N>; <* component N is available in F^ *> 

To write component N, use the sequence: 

Seek<F,N); (* position to component N *) 
F A := <); C* assign new value *) 
Put(F>; (* write component to file *) 
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If the Putt) in the above sequence is omitted, the effects will be 
unpredictable and the new data may be lost. 

Sequential I/O operations such as 6et<) and Pu€C> may be mixed 
with SeekO and will advance the file window to the next 
component- Reset (F) is equivalent to Seek(F,l). 



The direct access extension bypasses the Standard Pascal^ 
restriction prohibiting simultaneous read and write access to * 
mei For this reason, direct access files are identified by the 
'/Seek' switch which must appear in the Filename or DefaultName 
field of the associated Reset () or Rewrite O. 



3.3 Break <) procedure 

For efficiency, OMSI Pascal-1 buffers transmitted data. J"™**" 
forces the actual transmission of data from a partially filled 
buffer of file F. This can be useful with interactive terminals, 
or to guarantee actual transmission of data to a shared disk file. 

3.4 CloseO procedure 

Cldse<F> indicates that the program has completed P 1 ^ ^ 5510 ?.^® 
file F, and that internal buffer storage may be reclaimed. 
Close(F) removes any connection to an external file, so that 
Reset (F) or Rewrite(F) must precede any subsequent operations with 
that file variable. 



3.5 ReadlnO Array of Char 

ReadiO and ReadlnO will read characters from a T^^iJit^ile 
(packed) array of characters. Reading begins at the J™-™* file 
position and continues until either the array is f ai * ed > ^Jf'*?" 
?° True, in which case the remainder of the array is filled with 

blanks. 



3.6 WriteO Array of Char 

In accordance with the draft proposed ISO Standard, a *J**f " 
procedure call applied to an array of Char will *™ncate the 
written string if the field width parameter will not allow, trie 
entire string to be written. 
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Example: 

Write(Buffer:BuffCount)5 <* write buffered characters *) 



3.7 WriteO Octal (Base 8) , 

WriteO will write integers in octal notation if the field width 

specification is negative. 

Example: Write(l:-5)5 C* Display octal value of I *) 



3.8 Interactive I/O 

The Pascal Standard requires that the first element of a file be 
available as soon as the file is Reset (> (the buffer variable F A 
is assigned a value immediately). This can present serious 
difficulties when applied to files which are interactive 
terminals. For example, if the default input file is the user's 
terminal, the standard can be interpreted to require that the user 
type the first input character (or line) prior to the execution of 
the first program statement. 

QMSI Pascal-i takes the following route around the problem. When 
an interactive file is Reset (), the buffer variable, is set to a 
space and Eoln(F) is set to False, but no actual I/O transmission 
occurs. Each ReadO request then waits for sufficient data to 
satisfy the request, but no more. 

This solves most of tihe problems with interactive terminals in a 
predictable manner, but one should note that this approach creates 
other difficulties. When applied to an interactive file, the 
following program is unable to distinguish between an empty line 
and a line containing a single space. This is because EolnO 
cannot be set until the end of line character is typed to satisfy 
the ReadO request. 

Example: (the standard schema for reading a line of characters) 

var Line: arrayCl. .723 of Char? 

Count : I n teger $ 
begin 

Count := 05 

while not Eoln do begin 
Count := Count+15 
Read(LineCCountl) 5 
end; 
Readln; 
end; 
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4.0 Additional Predefined Functions 

OMSI Pascal-1 provides some additional built-in functions. 



4.1 Time function 

The Time function takes no parameters and returns a real value 
which corresponds to the current time of day. The Time is 
represented in hours after midnight, so that 9s 30 AM is 9.50 and 
1:45 PM is 13.75. The exact resolution of the Time function is 
dependent on the operating , system, but all operating systems 
provide a resolution of at least one second. 

Ek apples 

procedure WriteTi me; 
var Hrs, Mins: Integer; 

AmPm: arrayC1..23 of Char; 
begin 

Mins := Round <Time*6G); 

Hrs := Mins div 60; 

Mins := Mins mod 60; 

if <Hrs < 12) 

then AmPm :» 'AM' 

else if <Hrs = 12) and <Mins = O) 
then AmPm := 'M ' 

else AmPm := 'PM'; 

Write ('At the tone the time will be: '); 

Write <<(Hrs+ll) mod 12 + 1>:2); 

Write*':', Mins div 10:1, Mins mod 10:1, AmPm:3>; 

Writeln«Chr<7)>; 
end; 

"At the tone the time will be: 11:56 AM" 



4.2 ExplOO and LogO functions 

The ExplOO and LogO functions are similiar to the standard ExpO 
and LnO functions, but with a logarithm base of ten <10). 
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5.0 Non-Standard Language Elements 

This section describes the elements of OMSX Pascal— 1 which do not 
conform to the accepted definition of Standard Pascal. 



5.1 j PackO and Unpack O not available 

The reserved word PACKED may appear in type definitions, but * it 
has I no meaning in QMSI -Pascal— 1 programs. Packed types require 
the same amount of storage as unpacked types. The standard 
procedures PackO and Unpack () are not available. The fallowing 
equivalent FOR statements can be used instead: 

var A: arrayCM. .N1 of T; 

Z: packed arrayCP. .Q3 of T; 
for J: = P to Q do ZCJ3:= ACJ-P+I3S Z Pack(A.I,Z) 1 
for J:= P to Q do AC J-rp+1 3 : = ZCJ3? < Unpack(Z,A, I) > 



5.2 Program Parameters 

Program parameters (identifiers appearing in the program heading) 
have no meaning in QMS I Pascal-1 programs. The program heading 
may be omitted entirely if desired. External files can be 
declared by using the . Reset O and RewriteO procedures with 
optional parameters. 



5.3 Identifier Scope Rules 

In Standard Pascal, the scope of an identifier (that section of 
the ; program within which the identifier indicates a particular 
object) is directly related to the block structure. A definition 
of an identifier in a procedure, for example, prohibits that 
identifier from indicating another object throughout the entire 
procedure. 

QMSI Pascal-1 uses a subtly 'different rule for the scope of an 
identifier, called 'one-pass* scope, in which a* definition of an 
identifier prohibits only subsequent uses of the identifier within 
the block from indicating an object outside the block. 

The non-standard scope rule is described here for completeness, 
but it is of little concern to the programmer. Indeed, the 
majority of Pascal compilers use the identical (incorrect) rule. 
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5.4 ReadO/WriteO Text files only 

In the 1978 printing of the Pascal User Ma nual .and Report, the 
ReadO and Write O standard procedures were extended to apply to 
all file types. This extension has not yet been incorporated into 
OMSI Pascal -i, so that ReadO and WriteO are applicable only to 
files of the standard type Text. 

The following substitions may be used: 
i 
For Read <F,V>, use: V:=F A ? Bet (F) ; 

For Write<F,V>, use: F A :=V5 Put<F); 



5.5 EofO not accurate (RTli, RSTS only) 

On the RT11 and RSTS operating systems, a file is structured as a 
sequence of 512 byte blocks. No finer resolution is available as 
to the end of data in the last block. Therefore, the EofO 
standard function can not be relied upon as accurate, and another 
method (sentinel record, record count) should be used to indicate 
the end of usable data. 

r 

Note that this problem does not apply to Text files, where EofO 
is identified correctly. - 
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6.0 Implementation Definitions 

This section provides specific details and characteristics of 
implementation-defined elements of OMSI Pascal-1. 



6.1 ; Identifiers 

OMSI Pascal-1 permits identifiers to be of any_ length, and all 
characters are significant. Lower case letters may be used and 
are interpreted the same as upper case, so that "naae", "Name", 
and ?NAME" are equivalent identifiers- 

1 i ■ I ■ : '! 

Due to limitations of the object program file structures, the 
first six characters of any EXTERNAL or FORTRAN identifier must 
form a unique external name. 



6.2 Standard type Integer 

The standard type Integer has the range (-32768. . 32767) . Unsigned 
integers may be declared using the subrange notation 0. .65535. 
Note that arithmetic overflow is detected only for multiplication 
and division of signed integers. 

The predefined identifier Maxint has the value 32767. 



6.3 Standard type Real 

Real variables have the standard PDP-11 single or double precision 
floating point structure,' with the range 1E-38... 1E+38. Single 
precision values give 7 decimal digit precision; extended (double 
precision) values give 15 digit precision. Arithmetic overflow xs 
detected for all real operations, but underflow is ignored and 
gives a result of zero. 

The standard transcendental routines are accurate to 6 decimal 
digits in single precision, and 15 decimal digits in extended 
precision. 



6.4 Standard type Char 

OMSI Pascal-1 uses the 7-bit full ASCII character set. Characters 
are stored as signed bytes with all 8 bits available to the 
programmer, so that Ord(Char) has the subrange (-128. . 127) . 
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6.5 Standard type Text 

The standard type Text is a file type with components of type 
Chart, iwith the characters masked to the 7-bit ASCII set, and 
skipping the null (0) character. On RSX systems, the standard 
function EolnO is set by the end of a file record? on RSTS/E and 
RTlli systems by the LF (10) or ESC (27) character codes. 

The jstandard procedures ReadO, ReadlnO, WriteO, WritelnO, and 
the ; standard function EolnO are applicable only to Text files. 
The SeekO procedure is not recommended for use with Text files. 



6.6 SET types 

OMSI Pascal-i limits sets to a maximum of 64 elements. The 64 
element maximum forms a subrange which is not, required to have a 
lower bound of zero, but may instead be positioned at any 64 
element (or smaller) subrange of a base type <for example: 
100. .150, -25.-25). 

A set of the standard type Char is equivalent to the set of 
Chr<32)..Chr<95), which is a subset of ASCII containing the upper 
case letters, digits, punctuation symbols, and the space 
character, but lacking the control characters and lower case 
letters. 



6.7 NewO and Dispose O procedures 

In allocating storage for variant records, the NewO procedure 
will allocate memory for the largest variants any tag field 
values specified to NewO and DisposeO are ignored. 

Storage must be explicitly released with DisposeO — no automatic 
garbage collection is performed. Storage occupied by variables 
passed to DisposeO is reclaimed for use by the. NewO procedure. 
Dangling pointer references are not detected. 



6.8 Procedural Parameters 

The passing of PROCEDURE and FUNCTION parameters is supported by 
OMSI Pascal-1 with the syntax described in the Pascal User Manual, 
and Report <the proposed ISO Standard differs in this area). 

Predefined procedures and functions &re not permitted .as 
procedural parameters. This can be bypassed by declaring a second 
procedure which calls the standard procedure, and which can itself 
be used as a procedural parameter. 
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Example: 

function Sine(X: Real>: Reals 
begin 

! Sine:= Sin(X) 
ends 



6.k> I | Implementation Limitations 

The PDP-11 has six general purpose registers. In OMSI Pascal-i, 
one I register <R5) is always allocated for access to global 
variables, and another <R4) is allocated in some blocks for access 
to intermediate level variables. The remaining registers are used 
for integer calculations, address computations, and WITH statement 
variable access. Each WITH statement uses one register for the 
duration of the enclosed statement. This implies a maximum 
nesting of WITH statments, of three levels. Complex expression 
calculations can also exceed the available registers. If the Out 
of registers* error occurs, remove a WITH statement or simplify 
the> indicated expression by calculating intermediate results. 

The syntactic nesting of procedures is limited to a depth of 10 
levels. There is no implementation restriction on the actual 
depth of recursion of a program, although unlimited recursion will 
eventually cause the program to exceed available memory. 



6. lO Error Detection 

OMSI Pascal-1 does not detect the following runtime errors: 

Uninitialized variables 

Subrange bounds exceeded 

Integer overflow 

Real underflow 

Record variant mismatch 

Dereference of NIL pointer 

The following runtime errors are detected: 

Stack overflow 
■ Heap overflow 
Real overflow 

Integer multiply/divide overflow 
Array bounds exceeded 
Dispose <) of NIL or duplicate pointer 
Incorrect numeric format 
I/O errors 
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Predefined Identifiers 



Constants 

False, True 

Maxint 

Types 

Boolean 
Char- 
Integer 
Real 
Text 



Varijabljes 



1 Input, Output 



Functions 

Abs 

Arctan 

Chr 

Cos 

Eof 

Eoln 

Exp 

ExplO Base 10 Exponential 

Ln 

Log Base 10 Logarithm 

Odd 

Ord 

Pred 

Round 

Sin 

Sqr 

Sort 

Succ 

Trunc 

Time Time of day 

Procedures 

Break Transmit buffered output 

Close Close file 

Dispose 

Get 

New 

Page 

Put 

Reset 

Rewrite 

Read 

Readln 

Seek Direct access I/O 

Write 

Writeln 
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Reserved Words 
<* extensions) 



And 

Array 

Begin 

Case 

Const 

Div 

Do 

Down to 

Else 

End 

Exit * 

External 4 

File 

For 

Fortran * 

Forward 

Function 

Soto 

If 

In 

Label 

Mod 

Nil 

Not 

Of 

Or 

Origin * 

Packed 

Procedure 

Program 

Record 

Repeat 

Set 

Then 

To 

Type 

Until 

Var 

While 

With 
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Introduction to _the_Debygger : 

The Pascal On-Line Debugger (POD) is a symbolic debugging tool 
that lets you interactively control the execution of your Pascal 
program. You can suspend execution at particular statements, 
execute one statement at a time, and examine and modify the values 
of particular variables. Since POD traps errors and **«tif *« 
the last statement executed, you can easily pinpoint the source o+ 
run-time errors. 

POD is really a series of Pascal procedures that are linked wi th a 
program. When you specify the debugging option </D>, the Pas^a* 
compiler includes a call to POD before each procedure and 
statement in your program. This lets POD control Program 
execution. The compiler also produces a symbol table **** 
containing the definitions and locations of all variab l**f£ 
procedures in your program. Using this, POD can find and modify 
variables and refer to procedures by name. 

The Debugger Guide assumes that you are familiar with the User's 
Guide and the Programmer's Guide in this manual. 

In examples, underlining is used to show the text that you should 
type. Non-underlined text shows the prompts or other responses by 
the computer. 
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Including POD in Your Program 

To use POD, you must compile your program with the debugging 
switch, /D. This automatically generates a symbol table file for 
your program. For example: 

-R PCL 

» TtiiH/ p| 

'!'''■'!; ■ 
The /D switch causes debugging instructions to be included in the 
compiled program. The /D switch also produces a debugging file 
(TRIH.SYM) I containing the symbol table information for the 
procedures and variables of TRIM. 



supp 



POD ^uppdrts an option called source debugging, selected with the 
/S compilation switch. This lets POD print the Pascal source 
lines associated with the compiled statements in your program. 
With the /S switch you can debug a program without having to print 
a listing of the program. The cost for using source debugging is 
an increase in the size of the program being debugged and a 
somewhat slower execution speed. All of the examples in this 
section use the source debugging option. 

If you wish to use the source debugging option, specify both the 
/S and /D switches in the compilation command: 

• - B ESL 
*TRIM/S/D 



When the /S source debugging option is selected, a listing file 
CTRIM.LST) is automatically created. POD reads this file to 
display the source program, for each Pascal statement. If the 
listing file is deleted, source debugging is automatically 
disabled, and POD will then identify statements only by procedure 
name land statement number. 
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Running POD, 



Whenlyour program starts, POD will identify itself and ask you for 
the name of your program. It is assumed that the symbol file and 
listing^!* <i* thel option is invoked) will share the program 
name. If either file cannot be found, POD will. ask specifically 
for the necessary file name. If POD asks for a l^txng ***•«£ 
none exists, give a carriage return. This will cancel the source 
debugging option. POD will then ask for a symbol file name. Here 
is a typical POD opening dialogue: 



RUN 
POD 
POD 
> 



UBId .«, 

(Pascal On-line Debugger) - 24-Apr-79 

— program name? TRIM 



When POD is ready to accept commands, it will prompt you with a 
riant brace <>). On some terminals this will print as a right 
square bracket Vll. Commands to POD may be typed in •"■™*£-T 
or^pper case, and spaces in the commands are ignored. Several 
TOD Commands can be typed on the same line if you separate each 
command with a semicolon <5>. 

POD commands are presented alphabetically beginning on Page 77. 



r 

Accessi ng Pasc al . Stat ements,. 

POD identifies Pascal statements by the name "of J*"*™*" 
containing the statement, and the number of the statement in the 
nrocedure. The statement number can be found in the column 
?aSefeo sW in tne listing file produced by the ^cal compiler. 
Statements in the main body of a Pascal program « ™**JjL *? 
be in the procedure MAIN. All Pascal programs begin executing at 

MAIN,1. 

If the source debugging option is being used, POD ^will P^_ the 
source line along with the procedure name and statement numoer. 

Pascal allows you to define procedures that define other local 
procedure^ £ this way you can create a program containing 
several procedures all having the same name. However, we strongly 
recommend that all of the procedures in your program have unique 
names in order to avoid confusion during debugging. 
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Accessing Pascal Variables 

Accessing Pasc al V ariables 

POD lets you access the variables in your program in much the same 
way j as you use variables in Pascal. Variables and procedure 
parameters i*re identified by name, such as MARGIN, LIMIT, or 
SHQESI2E. Records are specified with the standard dot notation, 
such | as: COORD. X, and RANGE. TOLERANCE. LOW. POD will generate ah 
error message if too few (or too many) fields are specif ied for a 
record. Arrays of multiple dimensions are allowed, and POD will 
check the data type and limits of each index when accessing 
arrays. Pointers are specified in the usual way. The value of 
the pointer itself is interpreted as a decimal integer. A nil 
pointer has a value of zero,, and POD will generate an error 
message if a reference through a nil pointer is attempted. 

You can access complex structures by combining several" of the 
structures described above. In general, POD can access a variable 
in a structure in the same way as that variable is used in your 
program. Examples of legal variables are shown below: 

FEET 

A.B.C.D 

CHIP A .TEWPLAT£C3, 1,-53. FLUX 

ptr a . son"*, soar, son 

Integers are treated as 16-rbit signed numbers. The letter "B" 
placed after an integer K377B, for example) indicates an octal 
value. Boolean variables take values of either TRUE or FALSE. 
Character data, including character strings, are always enclosed 
within single quotes as with *X' and 'THIS IS A TEST*. Spaces are 
not ignored within a character string. Real variables are used in 
the usual way. POD also can access scalar types defined by the 
user. For example, consider the program section below: 

* 

TYPE 

COLOR=(RED, WHITE, BLUE) 5 
VAR 

X: COLORS 

When POD displays the value of X, it will correctly print the 
scalar type of X. . This capability is provided only by POD — 
Standard Pascal does not permit output of scalar types. 

> Xl=R£D 

> WOO 
RED 

J 
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Accessing Pascal Variables 

POD has another facility not available to the Pascal programmer: 
its ability to display the value of sets. The '*.." notation for 
included set elements is available for both the input and output 
of set values. 

TYPE 

jCOLOR=<RED, ORANGE, YELLOW, 6REEN, BLUE); 

VAR 

rb: set of color; 
values: set of inteser; 
q: SET OF char; 

These variables may be accessed by POD as shown below: 



> RB: =CRED. . YELLOW. BLUE3 
J W£RB> 

ERED.. YELLOW, BLUE3 . 

> VALUES: =£1- -,20^50^40^.3021 HiVALUESi 
CI.. 20,30,40,503 

5 SlifllElAlAl^ICIilFl^IBIilBIl 

■> w<Q> 

C'A'.-'F'S 
J 

As demonstrated above, POD lets you assign values to variables in 
the same way as you assign values to variables in your program. 
The only restriction is that you cannot evaluate expressions such 
as c':=A+B, and you cannot call functions such as R:=SINC3.i415). 

!■!.;!.' 
POD enforces the Pascal scope rules. In general, this means that 
at any point in your program you can only access the variables 
that' the program itself can access at that point. Global level 
variables, those defined at the start of the program, are always 
available. However, as different procedures are executed, the 
local variables and arguments of those procedures are temporarily 
available, while the local variables in procedures not being 
executed are never available. If you try to use a variable that 
is not available, POD will print a "symbol not found" error 
message. Remember, at any statement, you can only use the 
variables that are available to the program at that point. 

POD lets you directly address memory locations as integers. For 
example, 1234B:=240B modifies location 1234 Coctal) to contain 240 
(octal). This feature is most commonly used when you deal with 
pointers. However, be careful, for you might accidentally modify 
a location within your program and cause unpredictable results. 
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B(): Set /CI ear Breakpoints 

BO : Set /CI ear . B r eakpoi nt s ,,,,' 

The "B" command sets a breakpoint at a particular- statement within 
a program. Before executing each statement io your program, POD 
checks to see whether a breakpoint has been set at that statement. 
If a breakpoint has been set, POD suspends the execution of the 
program; and enters command mode. At this point you can examine 
and f Iter variables, check the history of the program's execution,; 
or continue jthe execution of the program. 

To set a breakpoint at a statement, type a **B" followed by the 
statement identifier (procedure and statement number) contained 
within parentheses. POD will interrupt the execution of your 
prj-ogij-aml; just before the statement at which a breakpoint is set.! 
Up to eight ! breakpoints may be in effect at any one time. 
Examples: 

> B(HftIN,,l) 

> 6 

Breakpoint at MAIN,! BEGIN I:=03 

> B(INIT.5); C 

Breakpoint at INIT,5 PARAMiS=OS PARAW22=05 
> 

(The examples above show how the source debugging option works. 
When POD stops at breakpoint, it prints the Pascal source line for 
that statement.) 

The "6"; command in the example starts program execution. The "C" 
command continues from the breakpoint. 

POD has the capability to execute a series of POD commands when a 
breakpoint is encountered. This facility, called stored commands, 
is specified when you place the command within angle brackets 
« M after the break command as shown here: 

'!' ;' I . .. ■-. 

1 ! ' 

'i 

> B (MAIM. 6) < W (DEPTH) S DEPTHZ.gS > 

> BlPQSIIigNiSlliWlX^YIiCi 

The first example displays the value of the variable DEPTH then 
assigns the value of 5 to DEPTH each time the program comes to the 
statement at MAIN, 6. The second example displays the values of 
the variables X and Y and then continues the execution of the 
program. In this case POD will not stop and enter command mode. 
Instead, each time the program comes to the statement at 
P0SITIQN,32, the variables X and Y will be displayed and the 
program wi 1.1 continue. 

Any POD command may appear in a stored command, but stored 
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Bt):i Set/Clear Breakpoints 

commands may not be nested; i.e., a stored command may not define 
other stored commands. As many POD commands as will -fit on a 
single line may be specified in a stored command. 

; i 
There are two ways to cancel a breakpoint. The "K" command 

described below can be used to kill all breakpoints or just a 

single breakpoint. However, if the program has just been 

interrupted because a breakpoint was reached, that breakpoint can 

be canceled by means of the "B" command with no arguments. 

> B(MAIN.l) 

> G 

Breakpoint at MAIN,! BEGIN I:=0; 

> 1 
} C 

The "D" command may be used to display the currently active 
breakpoints and their associated stored commands. 
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C: Continue Execution, Display Parameters 



Cont i nueExecuti gn_ 



If! trie execution of your program has been suspended by POD, you 
may use j trie «C« command to resume execution ^ tta progr<»- "; 
yoW program 1 has not started executing, either the C °T *he J*> 
commanarmay! be used to start the program. The ^^J* ^ 
describing breakpoints has several examples that use the c 
command. Once your program has terminated and POD £• ™2"*-"3 
command mode, any attempts to continue the progr« wth t £ oar ^ 
command will be ignored. (There i* "°^^« ^J^LI^^ 
may, however, be restarted with the "8" command described below. 

If you set a breakpoint inside a loop, it is sometimes ^ ir f"; 
to let the statement at • the breakpoint execute ^veral times 
before stopping. One way to do this is to use th f "£\ 22E2 
several times to continue from the breakpoint until the desired 
iteration in the loop is reached. Another solution is to ^se a 
repeat count contained inside parentheses after the C . Tbe 
repeat count tells how many times the •t.tjmjnt ?L ^kooint 
breakpoint has been set should be executed b f or * * n * br !£^ Xn £ 
takes effect. For example, you can set a breakpoint at Ct3UNT,10 
inside a loop structure. When the loop is first «*""*»**> J 1 " 
stop the program at COUNT, 10 with a breakpoint. The command C(6) 
will let the loop iterate 6 times before the program stops again 
at COUNT, 10 with • breakpoint. Each of the eight breakpoints has 
its own repeat count. 



r>l_Pi splay POD Parameters. .__ 

The " D » command displays the watched variables, l^ s » «"J 
breakpoints that are currently active. Watched variables are 
described below in the section about the -V- command. Labels are 
dHculsS below in the sections about the £• and Vc-JjJ; 
The stored commands associated with breakpoints and the watched 
variable are also displayed. 

> 

Watching: BC53 <W(BC63,B£73,BEB3> > 

Breakpoints: 

MAIN, 13 <W(FOO);C> 

MAIN, 20 

ERR, 5 <W(ERR0RC0DE)5H> 

User-defined labels: 

l: MAIN,1 BESIN i:«0» 

5: RETRY, 3 RESET (F, NAME, ' DAT' , STATUS) 5 

J 
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6, BO: 6a or Bo to a Label 

6, SO: Gb_gr„GQ to a Label . , 

The ."S" command without arguments starts or restarts your program 
at MAIN, 1. If the "6" command is followed by a label number in 
parentheses, the program will be continued at that user-defined 
label. [ Do| not confuse user — defined labels with Pascal statement 
labels. User — defined labels are created with the "L" command 
dynamically! as POD controls your program. Pascal statement labels 
are! jdef ihedi in your source code and are used by the Pascal 
compiler!' to generate targets for the Pascal 60TO statement. POD 
dbesj not | use Pascal statement labels. '! 

The j"L"j command labels the program statement about to be executed. 
The most common way to define a label at a particular statement is 
to set a breakpoint at that statement, execute the program until 
that statement is reached, and then use the "L" command to define 
the label. 

The "G" command should be used with care. It is not always 
possible to branch from arty Pascal statement to any other Pascal 
statement. Labels fallow the same scope rules as variables, so 
depending on which procedures are being executed, some labels may 
not be available. If you try to go to a label that is not 
available, POD will respond with the error message "You can't get 
there from here". One reason that POD cannot go to a particular 
label is that if the label is in a procedure that is not being 
executed, POD is not able to invent the values of the local 
variables associated with that procedure. 

> B (MAIN. 5); C 

Breakpoint at MAIN, 5 J:=SIN<Q>; 

> Lt3>i B (MAIN, 27)3 C 

Breakpoint at MAIN,27 WRITELNC X>Y* ) ! 

> B<3) 

Breakpoint at MAIN, 27 WRITELNCX^* > ; 

> § 

Breakpoint at MAIN, 5 J:=SIN<Q); 
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H: Print Program Execution History 

H: Print Program Executi on_H i story , 



POD maintains a list of the- last 10 statements executed by a 
program. This history is useful in determining how the program 
reached a breakpoint or how it reached a statement that caused an 
error. The M H" command prints the history and also the procedure 
execution stack. The stack shows the procedure and function 
nesting air the way back to the main body of the program. 

> B (EVALUATEBOARD. 1 ) \ C 

Breakpoint at EVALUATEBOARD,! FOR I: =-5 TO 49 DO BMANCI3:=FALSE5 

> H I ; ■ ; 

Program execution history 

I U M. '. !. 

6ENMOVE*3 BEGIN 

GENMOVE,4 FATHER: =F5 

6ENMOVE»5 M0VE:=I*256+J5 

GENMOVE.,6 QLDPIECE:=BEI3; BEI3:=ENPTY; 

6ENMOVE,7 OLDPIECE:=BCI35 BCI3:=EMPTY5 

GENHOVE,8 IF TURN=BLACK THEN 

6ENMQVE,9 IF J<=8 THEN BCJ3:=BLACKKIN6 ELSE BEJ3:=QLDPIECE 

GENMOVE,U IF J<=8 THEN BEJ3:=BLACKKIN6 ELSE BEJ3:=QLDPIE€E 

SENMDVE,15 VALUE:=EVALUATEBOARD<ENE«Y> 5 

EVALUATEBOARD,! FOR I: =-5 TO 49 DO BMANCI1:=FALSE5 

Procedure execution stack 

EVALUATEBOARD, 1 FOR I: =-5 TO 49 DO BHANEI3:=FALSES 
6ENM0VE»15 VALUE:=EVALUATEBQARD<EN£«Y>S 
MOVEPIECEpll IF M0VESALLOWED THEN SENHQVE ( I , 3 ) 5 
EXPAND,15 IF CQL0REWH03=TURN THEN MOVEPIECE < I , I , O* O) ; 
MAIN, 7 EXPAND (ROOT, TRUE); 
> 
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K, K<): Kill Breakpoints and Labels 



K. K(): Kill Breakpoints and Labels 



When ] the "K" command is given without arguments, all label 
definitions and breakpoints are deleted. When the **K" command is 
followed by a statement identifier, the breakpoint at that 
statement is removed. 



J B (MAIN, 5) 

> K (MAIN, 5) 

> B(MAIN JL 17) 
J K 

: ,■ i ; , ' 

Individual breakpoints also can be removed with the n B a command. 



L ( ) : Label a Statement. 



You may label up to eight statements with the "L" command. Labels 
are used as targets of the "6" command. The label number <1 
through 8) is placed in parentheses after the "L". The "L" 
command always defines the label at the current location within 
the program being executed. Check the description of the "B M 
command above for a warning about branching within a Pascal 
program. The "D" command may be used to list the currently active 



labels. 



> B<MftIN« 13); § 
Breakpoint at MAIN, 13 A: -15 

> L<1> 

> B (MAIN. 15); C 
Breakpoint at MAIN, 15 B:=375 

> 2 

Breakpoints: 
MAIN, 13 
MAIN, 15 

User-defined labels: 
l: main, 13 A:=i; 
5: MAIN, 15 B:=37; 
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P, P(): Execute One Statement, Register Dump 

P. P(): Execute One Sta tement in Current JVgcedure 



S-*. 



The >P"j command executes a single statement in the current 
procedure, j "P" will not single step through -functions and 
procedures Rested in the current procedure, but instead will treat 
their calls as single statements- If the current procedure ends, 
"P" will begin single-stepping the procedure that called the 
current 1 procedure. (Compare "P" to the similar "S" command 
described below. ) 

If a! repeat count is given in parentheses after the "P", the 
specified number of statements will be executed before stopping. 
As with the "C" command, you may not proceed past the end of the 
program once the program has terminated. Use the B B" command to 
restart the program. 

> P 

Breakpoint at MAIN, 1 BEGIN I:«0| 

> P 

Breakpoint at MAIN, 2 J:=RAND0MINTESER(3) ; 

> P 

Breakpoint at WAIN, 3 K:=J*J-IS 

> P(5) 

Breakpoint at MAIN, 8 IF K<J THEN BEGIN 

J 



R: Re gis ter Dump_ 



The "R" command prints the values of the processor registers RO-PC 
in both octal and decimal. This command is normally useful only 
to those programmers who include in-line assembly language code xn 
their Pascal programs. 
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S, SO: Single Step 

S. SO: S ingle Step , : . 



The "S" command is identical to the "P" command above, except that 
if a statement being stepped through calls another procedure or 
function, then the new procedure or function also will be executed 
one step at a time. As with "P", a repeat count may be specified. 

i 

> Si 

Breakpoint at MAIN, 1 BEGIN Is =05 

' > s! 
Breakpoint at MAIN, 2 RANDOMINTE6ER<3) ; 

; > S<1) 
Breakpoint at RANDOMINTEGER, 1 BEGIN RANDOM:=X; 
} 



TO: Trace Mode. 



"TOmfE)" turns on statement trace mode, while ^TtFALSE)*' turns it 
off. When trace mode is on, POD will print the location of each 
statement before it is executed. If several Pascal statements 
appear on the same line in the source file, and if those 
statements are each executed in sequence, then the line containing 
those statements will be printed only once. 

> BjMAIN.6) 

> TtrRUE) 

> B 

MAIN,1 BEGIN I:=OS 

iiain,2 j:=os k:=o; l:=3.14159; 

MAIN, 5 WRITELWHI THERE'); 

HI THERE 

Breakpoint at MAIN, 6 WRITELN; 

y 
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VO: Variable Watch 
VIIi_Variable Watch 



The "V" command makes POD watch the value of a variable. Before 
each statement in your program is executed, POD compares the 
current value of the variable with the value it- had when • the "V" 
command was given . If the value has changed, POD stops your 
praqram and tells you so. • If you continue your program, POD will 
continue watching for a change in the variable. 

The : .pv>| command is useful if your program is malfunctioning 
because, the value of some critical variable is being destroyed 
somewhere. The "V" command also can be used to watch locations in 
low memory to detect the incorrect use of a nil pointer. 



> V (DEPT H) 

> C 

Value of -DEPTH" changed at statement: 

DESCEND, 1 DEPTH: =DEPTH+1 5 

Old value: 

New value: 1 

Breakpoint at DESCEND, 2 IF DEPTH>MAXDEPTH THEN 

> Q 

Value of "DEPTH" changed at statement: 

DESCEND, 1 DEPTH: =DEPTH+1 ; 

Old value: 1 

New value: 2 

Breakpoint at DESCEND, 2 IF DEPTH>MftXDEPTH THEN 

} C 

Value of "DEPTH" changed at statement: 

DESCEND, 38 DEPTH: =DEPTH-1; 

Old value; 2 

New value: 1 • 

Breakpoint at DESCEND, 37 END? 
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V(): Variable Watch 

Stored commands may be specified with the "V" command in the same 
way J as with the "B" command. The n D" command will list the name 
of the variable being watched and the stored commands if any were 
given. You can terminate a variable watch by using the "V" 
cornmiand with no arguments. POD will automatically terminate A 
watch on a 'variable when that variable is no longer available. 
When POD does this, it prints the message "Watch terminated — r 
value didn't change". 



> B (EVALUATEBOARD. 35) 3 C 

Breakpoint at EVALUATEBOARD, 35 FOR I: =5 TO 39 DO 

> VJBLA^SC^«i<WiWHITE^^REi> 

> C 

Value of "BLACKSCORE" changed at statement: 

EVALUATEBOARD, 224 ELSE BLACKSCORE: =BLACKSCGRE-tf10C45 

Old value: O 

New value: 400 __ 

Breakpoint at EVALUATEBOARD, 225 IF BLACKDENY<WHITEDENY THEN 

O 

> Q 

Watch terminated — Value didn't change 
Breakpoint at WAIN, 28 MAXL£VEL:=0; 
> 
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W<): Write Variable Value 



WO : Write,. Vari able V alu e 

The "W" command is used to write the value of a variable, pointer, 
constant, or memory location. The format of the output is 
d'letejrfll'ilhed fay the type of the variable being written. For 
ek ample, : integer variables are written as 16— bit signed decimal 
integers, while set variables are written with set notation. The 
names I of j the variable to be displayed are placed inside 
parentheses^ after the "W". If more than one variable is to be 
written then the names are separated by commas. Physical memory 
locations are addressed as integers (either octal or decimal). As 
in Pascal, integer and real values may use format control with the 
colon C) notation. This is also how one examines memory 
locations in octal. 



> WiiyRNl 
BLACK 

> W (COLQRC BLA CKKINB3 , CQLQRCWHITEKi|^3I 
BLACK 

WHITE 

3 W(USERHQVESC53) 

»B1' 

J W (ROQT A . SON^. VALUE) 

402 

J WC54B1 

-10154 

> W(54B:-1) 
154126B 

> HISJL 
C*A a ,'M','Z*3 

> WjR? 

3. 141593E+00 

> SIGH). 
'A* 

> W(I> 
123 

> 
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Advanced Debugging Techniques 

Advanced,, D ebugging Techni gues _ ___. . .___. . _. , ._ 

If you write large programs, restrictions in memory size may limit 
your use of j POD for debugging. However, you can do several things 
to reduce the amount of memory required by POD. 

The easiest thing is to disable source debugging. The use of the 

source ! debugging option </S) expands your program by one word for 

eyerjy Fjascai statement in your program. For large programs, you 
may'' pave more than IK words by not using source debugging. 

■ ! i: j- : ' !• li ■;■■ r 

Another technique you can use is selective debugging. You can 
edit] your program to turn off the generation of POD debugging 
information around procedures that have already been tested and 
debugged. To turn off debugging, place the line C*D-> before the 
procedure definition and £*D+> after the procedure. You will not 
be able to set breakpoints or examine variables in such 
procedures, but you wi 1 1 save two or three words for every 
statement not debugged. Be sure debugging is enabled around all 
variables you may wish to examine and around the main procedure. 

If your program uses overlays, you can still debug your program 
using POD. When you compile the main body of "the program, which 
resides in. the root segment, use the debugging switch </D) and 
produce a symbol table file. Compile each of the external modules 
in the normal way without the debugging switch. 

The best way to debug an external procedure is to edit your main 

program to include the definition of the external procedure. Once 

the procedure has been debugged, you can move the procedure from 
the main program into an external module. 

Another; way to debug one external procedure at a time is to 
compile that external procedure with the debugging option t/D). 
Edit your main program to enable debugging only around the BEGIN 
statement that is the start of the main program as shown: 

I'M', "■■■■ 

«D+> 

BEGIN <MAIN> 
**D-> 

This initializes the Debugger when the program starts. Then 
compile the main program in the nromal way. When POD asks you for 
the program name, give the name of the external procedure you wish 
to debug. 

When you link your overlaid program you will have to use two 
overlay regions to contain the modules of POD. These two overlay 
regions may, in most cases, also contain your own external 
procedures. There should be no conflicts because POD only lets 
you debug in the root segment, and as long as the two POD modules 1 
RTDBG and DBG are placed in the root, there should be no problems 
with the overlays. 
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Advanced Debugging Techniques 

You cannot set breakpoints within external procedures, but you can 
cause a break when the external procedure is called -from the main 
program. This is done by setting a breakpoint and giving only the 
name of the procedure at which to break as with: B(OVERl). This 
type of breakpoint will stop the program before the external 
procedure 0VER1 is executed. The only variables you will be able 
to examine, and modify in 0VER1 are those variables in the 
parameter list for 0VER1. Note that the names of the parameters 
are defined! by the external procedure definition of QVER1 in th6 
main! program, not by the definitions in 0VER1 itself. 
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I ntroduction to the Install a t i.on_6uide. 



This guide describes the procedures for installing Pascal-i VI. 2 
on your RT-il operating system. Note that the procedures for the 
installation of V2 of RT-il differ from those for V3 and V4 of 
RT-11. The latter two are identical. 

In examples, underlining is used to show the text that you should 
type. Non-underlined text shows the prompts or other responses by 
the computer. 
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Contents of the Distribution Medium 



Each 
is a 



medium contains a complete set of distribution files. 



li 



st of these files with a brief explanation of each one. 



Below 



Installation Files 



iTAL.DOC Installation documentation 

' INSTAL.SAv" Installation program 

j • ,;.|-, I. | ;■ . p 

Documentation Files 

TABLE .DOC Table of Contents 

INTRO .DOC Introduction 

USER -DOC User's Guide . 

GUIDE .DOC Programmer's Guide 

PASCAL.DOC Language Specification 

DEBUG «DOC Debugger Guide 

INSTAL.DOC Installation- Guide 



Compilers 

PASFPP.SAV 
PASSIM. SAV 



Compiler for FPP machines 
Compiler for non-FPP machines 



U tili ty Programs 

! PASFMT.PAS Formatter and cross reference 

IMP ! .PAS Post-compilation optimizer 

PROFIL.PAS Program profiler 

PCL i .PAS Pascal command language interpreter 

ERROR .PAS System Error (> procedure 

STRING.PAS String manipulation procedures 

INTRPT.PAS Interrupt handling examples 

CSI -PAS Interface for .CSI6EN 

MACEIS.SAV Fast assembler for EIS machines 

MACSIM.SAV Fast assembler for non-EIS machines 



Object Libraries 

LIBFPP.V3/.V2 
LIBFIS.V3/.V2 
LIBEIS.V3/.V2 
LIBSIM.V3/.V2 



Library for FPP on RT-I1 V3/V2 
Library for FIS on RT-11 V3/V2 
Library for EIS on RT-11 V3/V2 
Library for non-EIS on RT-11 V3/V2 
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Contents of the Distribution Medium 

Debugger Modules 

OFPP. V3/ . V2, ... , 9FPP. V3/ . V2„ AFPP. V3/ . V2, BFPP. V3/ . V2 

I FPP debugger nodules for RT-11 V3/V2 
0SIM.V3/.V2, ... ,9SIM.V3/.V2,ASIM.V3/.V2,BSIM.V3/.V2 
Noh-FPP debugger modules for RT-11 V3/V2 

Demons tration Pr ograms 

iRTgiPAS The game of Hearts 
IDOjM.PAS Random number generator 
.PAS Amazing Demonstration 




MA^E 



Installation Preparation 



For RT-11 V3 and V4, the Pascal VI. 2 system is installed by an 
automatic configuration procedure. For RT-11 V2, the procedure is 
only partially automated. 

Several system programs supplied by DEC are required for 
installation of Pascal and for use by the Pascal system. These 
programs are PIP.SAV, the file transfer utility; MACRO. SAV, the 
assemblers SYSMAC.SML, the MACRO library; SYSLIB.OBJ, the 
default system object library; and LINK. SAV, the linking loader. 
You should verify that these programs are on your system disk. 
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Installation Dialogue 

Installation Dialogue ; __ „ . ,_ .„__ . ,_ 



The installation procedure builds Pascal on a single target disk. 
The target disk must contain at least 544 free blocks if no 
documentation or demonstrations are desired. Hie documentation 
files require 245 blocks of storage, while the demonstration files 
use 175 blocks, or 964 total blocks. 

To start the installation process, type: 

i : ! : | i 

! - RUN xxn: INSTAL 

where xxn: is the device,, name and unit number of the distribution 
medium.; This starts the installation procedure, which will ask 
several questions. The default answer is given in parentheses at 
the ! end of each question and will be used when you respond with 
only a carrage return. Below are the questions and a description 
of each. 

DEVICE FOR THE DISTRIBUTION MEDIUM (MT: ) ? 

Enter the device name and unit number on which the Pascal 
distribution medium is mounted. If the device is "MT:", a 
carriage return will use this name as default. 

DEVICE FOR THE TARGET DISK CSV: > ? 

Enter the device name and unit number of the disk on which 

Pascal is to be installed. 

INCLUDE DEMONSTRATION PROGRAMS AND DOCUMENTATION <YES> ? 

If the answer is yes, the demonstration programs and 
documentation files are included in the system 
installation procedure. 

USE THE CURRENT SYSTEM'S CONFIGURATION <YES) ? 

If the answer is yes, the version of RT— 11 and the math 
hardware on the current system are used in configuring 
Pascal, and the following questions are omitted. 

VERSION OF RT-11 TO BE USED <n) ? 

Answer "4 M if Pascal is to run on RT-11 V4. Answer "3" if 
Pascal is to run on RT-11 V3. Answer "2" if Pascal is to 
run on RT-11 V2. The default will be the current version 
of RT-ii. The same Pascal system is used for- RT-11 V3 or 
V4. 

IS FPP HARDWARE TO BE USED (YES/NO) ? 

If. you will be using a machine with an FPU floating-point 
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processor, answer yes, otherwise no. If yes. then the 
next two questions are skipped. The default will be thl 
current system's configuration. 

|IS FIS HARDWARE TO BE USED (YES/NO) ? 

ITJ£" will . fa f usina a machine with a PDP-11/40 style 
S^i ng ZEi n jK » n « t r uc ti«i set answer yes, otherwise noi 
' "y 6 ?* JJen the nwjt question is skipped. The default 
wall be the current system's configuration. 

. IS EIS HARDWARE TO BE USED (YES/NO) ? * 

If , you will be using a machine with an extended 
instruction set for integer operations answeT yes? 
otherwise no. The default will be the current system's 
configuration. =»7=»*.«=ih s» 



GOlsriSURATICW KINS INSTALLED 
SOURCE: MT: 
TARGET: RK2: 
RT-11: V3 . 

MATH: EIS 

Si kifei^ 10 " P^? raffl »"1 then proceed to copy the files from 
the distribution medium to the target device. °® 

d£JU°EE t" d E ? Ctape distribution, the installation program Hill 
prompt the user to mount the next volume when needed. ' 

^om^ifi 1 +i i^ S haVS been COpied ' several programs need to be 
interpreter; and PKOrl^PAS, i he K^proIrL 25JJ,«— 

coLKi' ^h™" V4 ' *" imtir < K * ""-and file automatically 
f^EtJf V *"""" f-osrams. See Appendix A for a saaole 

installation. You also will need to customize the Pascal JZZS2Z 

££??. ctn^A "Jt" 3S desc " bed *» *pS-S V « a the C ?arS d 
aevice is other than the system disk. 

Installation on V2 or Floggy n^^ 

Sove^'orc^™ *T ^^ driVe svste « s ' y°« «»t compile the 
conSi/Slf^, b I *"■"■» SOffle or all of the commands on the 
Apperidfx aT ' foIlowin * ^e same general procedure shown in 

to^r-US^SL- 1 V r** 1 ? * ith «°PPY*, so your first action is 
doubi^SLJT^ ? k " ™ e next step deP 6 " ^ on whether you have 
double-density drives or single-density drives as main storage. 

£___! e -Densi ty Drives 

If your system has double-density drives with at least 544 free 
blocks, you may use the automated installation driver, INSTAL.SAV, 
to partially build your Pascal system. This means you can follow 
- ?*,, i? Automatic Installation" described in the sample 

on? ii X " ^endix A. The installation procedure will run 

PASCAL^CQ? ,aC ?h« S ? 0r J ly aftSr creatina the indirect command file, 
crashis: " message you normally will see before the 

All files have been copied — beginning compilations. 
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ftju mil have to manually perform all of the steps that follow 
HhiL. T 5 T 9Bf ^ - Un * Br „ th * headi "9 "Step 2: Compilation Process" 
?nH£J£* K^* A - YoU WiU have to use « additional drive for 

on a TJS£TdJliT" r fiies used by Pascal ~ 1 V1 - 2 can be storeS 



¥2 SE fJinqle-Density Drives 



If you 



then 



2) 



ill • 

have | RT-11 V2 or if your system uses single-density drives; 
you must build Pascal -1 manually. Begin with these steps:. * 

it! P^cfcsAV? ^ 11 ^ fr ° ffl PASFPP ' SAV «* PASSin.SAV and call 

i T wr?2\««« support library from LIBFPP. V2/V3, LIBFIS. V2/V3, 
LIBEIS.V2/V3, or LIBSIM. V2/V3 and call it PASCAL. OBJ. 

3) Select the debugger modules. The debugger consists of 12 
l^i^ ^^l 63 that must fae copied onto your system as A. OBJ, 
B.OBJ, O.OBJ,...,9-OBJ.' The distribution kit contains 
debugger modules for RT-11 versions 2 and 3/4 supporting FPP 
and FIS/EIS/SIM floating-point hardware. - Choose those 12 
files appropriate to your system. 

After transferring the files given above, you have a Pascal system 
capable of compiling, assembling, linking, debugging, and 
executing Pascal programs. 

S»r2^ ynC ^ generate the utilities PASFMT, IMP, PCL, PROFIL, and 
STRING. ! You may then store these utilities on another device to 
savei space. You also may delete the intermediate .MAC and .OBJ 
15*9 ■'"£ j were created in the installation process, then 
ASr K2 «o, ydur diSk to reclaia » space. You must, however, save 
mescal. GBJ, the 12 debugger modules and PROFIL. OBJ. After 
cleaning, then, device SY: ' should have these files: 



PASCAL. SAV 
PASCAL. OBJ 
A, B, 0-9. OBJ 
PCL. SAV 
IMP. SAV 
PASFMT. SAV 
PROFIL. OBJ 
MAC. SAV 

(plus RT-11 



(Compiler) 
< Run— time support) 
(Debugger modules) 
(Command Language Interpreter) 
(Macro code improver) 
(Source text formatter) 
(Profiler module) 
(Fast assembler) 
system utilities and files) 



This sequence will bring you up to "Step 2: Compilation Process" 
described in Appendix A; you should manually complete all of the 
commands in Step 2. 
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i3S!Eie_Instail at i on 



Step l: Automatic Installation 

with ^pf la Tn r i?cS5" STTh*? the system disk on RT ~ n V3 

response. 3 " S that a carria 9 ff return is" the only 

■run mt;i nstal 

! INSTAL j— • System installation for OMSI Pascal-1 VI- 2 on RT-li 
-or the. following questions, a default answer is 

So2 e Sr-iL P fH entheS ^ S - The de ** ult «*" be used when 
ESc^^T t Car rif 9B return ke y- For details about the 
Question, type a *?* 5 otherwise type the desired response. 

Device for the distribution medium <MT:) ? <CR> 

Device for the target disk <SY:> ? <CR> 

Include demonstration programs and documentation (YES) ? <CR> 

Use current system's configuration (YES> ? <CR> 

Configuration being installed: 
SOURCE: MT: 

tarset: sy: 
rtii: V3 
math: fpp 

Copying files: 

MT:USER .DOC to SY:US£R .DOC 
MT: PASCAL. DOC to SY: PASCAL. DOC 

«t:debub .doc to sy:debus .doc 

mt:buide .DOC to sy:suide .doc 

ht:pasfpp:sav to sy: pascal. sav 

■ j «t:maceis.sav to sy:mac .sav 

mt:libfpp.qbj to sy: pascal. obj 

MT:AFPP .V3 to sy:a .obj 

MT:BFPP .V3 to sy:b .obj 

mt:ofpp .V3 to sy:o .OBJ 

mt:ifpp ,v3 to sy:i .obj 

«t:2FPP .V3 to sy:2 .obj 

MT:3FPP ,V3 to SY:3 .OBJ 

iit:4fpp .V3 to sy:4 .obj 

MT:SFPP .V3 to SY:5 .OBJ 

MT:6FPP ,V3 to SY:6 .OBJ 

MT:7FPP ,V3 to sy:7 .obj 

MT:8FPP .V3 to SY:8 .OBJ 

MT:9FPP .V3 to sy:9 .obj 

mt: pasfmt. pas to sy: pasfmt. pas 

fiTxiMP ,PAS to SYriMP .PAS 

■mt:prqfil.pas to sy:profil.pas 
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MT:PCL -PAS to SYIPCL -PAS 

MT: STRING. PAS to SY: STRING. PAS 

MT: HEARTS. PAS to SY: HEARTS. PAS 

MTZCHECKR.PAS to SY:CHECKR.PAS 

iMT: RANDOM. PAS to SY: RANDOM. PAS 

mt:maze .pas to sy:maze .pas 

All files have been copied — beginning compilations 

Step 2: Compilation Process' 

After copying all these files, the automatic installation- program 
creates the indirect command file PASCAL.COM, which then compiles 
the Pascal source programs. The compilation process is not shown 
here for* reasons of brevity. 

For RT-11 V2 users and for double-density and single-density 
floppys, this command file will not be created; the user must do 
the following steps manually to compile the supplied source 
programs. 

.ASS yyn DK tyyn: is the target device) .. 

-RU PASCAL 

*PASFMT=PASFMT 

.RU PASCAL 

*IMP=IMP 

.RU PASCAL 

*PROFIL=PRQFIL 

.RU PASCAL 

*PCL=STRI«B, PCL 

.R MACRO 

*PASFMT=PASFMT 

*IMP=IMP 

«PR0FIL=PR0FIL 

*PCL=STRINS, PCL 

,R LINK 

*PASFMTsPASFMT, PASCAL 

*IMP=IMP, PASCAL 

*PCL=PCL, PASCAL/M: 60000 

*^C 

.R PIP 

*PASFMT.PAS,PASFMT.MAC,PASFMT.GBJ, IMP.PAS, IMP.MAC, IMP.OBJ/D 

♦PROFIL. PAS, PROFIL. MAC, PCL. MAC, PCL . OBJ/D 

and if the demonstration programs are included: 

-RU PASCAL 
*HEARTS=HEARTS 
.RU PASCAL 
*CHECKR=CHECKR 
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.RU PASCAL 

*MAZE=MAZE 

-R MACRO 

*HEARTS==HEARTS 

*CHECKR=CHECKR 

*MAZE=MAZE 

,R LINK 

*HEARTS=HEARTS, PASCAL 
*CHECKR=CHECKR, PASCAL 
*MAZE=MAZE, PASCAL 

.R PIP 

•HEARTS- MAC, HEARTS. OBJ , CHECKR. MAC, CHECKR. OBJ/D 

*MAZE. MAC, MAZE. OBJ/D 

■jf^C 
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Appendix B: Programming Changes in Pascal-1 VI. 2 

PrreqrafiMWi nq Changes^,! n„, Pascal — 1_V 1 . 2 



Four, specif ic language features have been changed from VI. 1 to 
V1.21, all | of which are related to I/O characteristics. If a 
program that was written in VI. 1 fails to operate properly with 
VI .2^ check these points: 



(1) 



val 



Cure 



VI. 1 



tie True. This has changed to False in VI. 2. 



EolnO on interactive terminal files had the initial 



Symptom: Program "hangs" , or ignores the first input line. 



| RemoVe the initial ReadlnO, or replace it by the statement 
if EolnO then ReadlnO n , which runs correctly with either 
version. 

(2> The VI. 1 ReadO procedure, when reading a {packed) array of 
Char, ignored leading blanks and terminated on a blank or a 
comma. The VI. 2 ReadO procedure will read characters without 
skipping blanks, and terminates at EolnO or when the array is 
filled. 

Symptom; Program does not interpret commands properly, or loops. 

Cure: Reprogr am sections that use the V 1.1 ReadO. Programs that 
are heavily dependent on the VI. 1 style ReadO may be more 
easily receded with the VI. 2 string package. 

(3) The declaration "file of Char" is no longer equivalent to the 
declaration "Text". This change corresponds to the more 
striict type checking of the draft ISO Pascal Standard. 

Symptom: Compiler error message "TEXT file expected". 

i • ! : .! '■ ! • I 

Cure!: Substitute the type Text and recompile. 

(4) The SeekO, Deposit O, and CloseRandomFileO procedures 
supplied with VI. 1 have been superseded by the built-in 
procedure Seek O . 

Symptom: Unpredictable I/O 'failures. The Vi.l procedures will 
compile under VI. 2, but will not operate correctly. 

Cure: Reprogr am affected sections using the built-in SeekO. 
Note that the VI. 2 SeekO numbers file records beginning at 1. 
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Appendix C: Customizing the PCL 9 3 

g»stgfliizin g ^he^ascal_Language^gmmand_Proqram (PCLj>_ _____ 

DrL™ eS p£f in9 T" ^ "* V4 ' the Pascai command language 
accloS a Mn^ * «*«<*. to .automate the compilation process.* PC* 
?pS?? ** " °f input in standar d Command String Interpreter 
<CSI> format and produces an indirect command file to perform tS 
compilation, assembly, linking, and start-up of " a programV 

^"x^f^ 1 " 1 *s in stalled on the system disk, PCL will need no 
^r^ork^Crrectly. """^ "*** *" ^ ^^allation prSdure 

^»Sj« - ^^ilatTr^^e ed^Ing^^ do^wiSTa 
standard text editor. Change the first line of PCL.pIs^oT 

PascalDevice = »yyn:'; (* Device for the Pascal files *> 

where yyn: is the device name and unit number on which the Pascal 

PCL within* foi^T** Mt&r * hiS Chan9e nas been fflade > recompile 
rLL **xtn the following commands: ^^ 

■BSSISN yvri DK 

■B PASCAL 

♦PCL^PCL 

-«AQ PCL 

■LINK PCL. PASCA L/STAC K: 6O0OQ 



Mote: 



PCL features &r e described in detail in a comments section 



at the beginning of the PCL. PAS program. 



PROGRAM canvertgroups (data-file, binary-file, 6utput) ; 

CONST 

groupsize = 10; 

TYPE 

index = 1 . . groupsi2e; 

group « ARRAY C index 3 OF real; 

VAR 

data-file : text; 

fainaryfile : FILE OF group, 

i x : i ndex,; 

groupcount : integer; 

BEGIN 

reset (data-file) ; 

rewrite (binary-f ile) ; 

groupcount := 0; 

REPEAT 

ix :=i; 

read (dataf ile, binary-f ile^Eix3) $ 

IF NOT eof (data-file) 

THEN 

BEGIN 

REPEAT 

ix := ix + IS 

read (dataf i 1 e, bi naryf i 1 e A E i x 3 ) 

UNTIL (ix = groupsisre) OR eo-f (data-file) ; 

IF eof (data-file) 

THEN writelnCFile ends with short group') 

ELSE 

BEGIN 

put (binary-file) ; 

groupcount := groupcount + 1 

END 

END 

UNTIL eof (dataf ile) ; 

writeln (groupcount, 'Groups converted*) 

END. -C con vert groups J 



VAR I: INTEGER; 
BEGIN 



ENDS 



WRITELN; 

CASE CLASS OF 

WARNING: WRITE ('Warning: '); 
IOERROR: WRITE<*?I/Q error: *); 
ELSE WRITE C?Fatal error: * ) ; 
END? 

writeln <msg:errarmsglength) 5 
IF CLASS=IQ£RROR THEN BEGIN 
" IF FILENAMELEN6TH > THEN 

WRITELNC Filename: "' .filename: filenamelength, "") s 
writeln ( ? I/O status: • , IOSTATUS: 1) 5 
END; 
WRITELNC Program counter: * , USERPC : - 1 ) ? 



